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Disponer de una sensacional calculadora residente 
en tu MSX, a tu alcance en cualquier instante, con 
tocar un tecla. Un reloj alarma programable. 

Copiar por impresora las pantallas de tus programas. 
Crear fantásticos efectos de animación. Disponer 
formidables editores de sprites y avanzadas 
instrucciones para su manejo. ¡¡IMAGINA!! 
Consultar un completo prontuario de tu 

BASIC MSX interactivamente... sólo con 
conectar uno de nuestros programas y 
¡a funcionar! ¡ASI DE FACIL! 





SUPER SPRITES ^ 

Permite aumentar la capacidad de 
gestión y edición de nuestro MSX. Po- 
tente editor de formas de distintos tama 
ños y colores, pudiendo ser salvadas o car- 
gadas desde cualquier otro programa, permi- 
tiendo el control de velocidad, orientación y 
cambio de formas de sprites. 

SIDE PACK 

Permite acceder a múltiples funciones desde cual- 
quier programa dada su transparencia. Entre otras 
nos proporciona una potente calculadora científi- 
ca, reloj alarma programable, copia de pantallas 
por impresora... SIDE PACK será un inseparable 
de tu ordenador. 




CALCULATOR NEW 



La más potente calcula- 
dora científica que puedes comprar para 
tu ordenador. Programa pensado para 
todas aquellas personas que requieran 
un potente soporte matemático, rápido 
y sencillo de usar. 



IDEA TEXT 

Procesador de textos de fácil ma- 
nejo. Máxima potencia de trabajo. 
42 K libres de Memoria. EDITOR de 
página entera con control total de már- 
genes, identaciones, centrado, espacios, 
encabezados, pies de página, movimiento e 
inserción de bloques, etc. Trabaja con cualquier 
impresora. Compatible con IDEA BASE y DIM 
CALC. Permite salvar en cinta o disco. 



IDEA BASE 

Impresión de etiquetas y listados. 42 K de me- 
moria libre de trabajo. Ordenación de registros. 
Menús conversacionales e interactivos. 
Puede salvar o grabar en cinta o disco. 
Es compatible con IDEA TEXT y DIM CALC. 
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Editorial 



MSX EN EXPANSION 

El estándar MSX goza de buena salud. 
A pesar de los embates de los 
ordenadores de la competencia, ya que 
no podemos hablar de norma pues tales 
aparatos carecen de ella, el sistema 
MSX mantiene unos excelentes niveles 
de ventas según fuentes fidedignas. 
Pero no se trata sólo de mantener el 
mercado, sino de expandirlo a todos los 
niveles. 

Para ello los principales fabricantes han 
decidido intensificar sus campañas y, 
sobre todo, dar una mayor información 
al usuario acerca de las peculiaridades 
de los aparatos MSX, tanto de la 
primera como de la segunda 
generación. 

En este punto es de esperar que la 
información sea fundamentalmente 
esclarecedora en dos aspectos. En el 
primero poner en conocimiento de los 
usuarios de MSX de la primera 
generación, que no se verán 
desasistidos pues la misma tiene cuerda 
para rato, ya que la segunda generación 
es un avance destinado a aquellos 
profesionales que necesiten de una 
mayor capacidad gráfica. Una 
capacidad gráfica que no tiene, por 
ejemplo, los grandes ordenadores 
personales, los cuales están destinados 
a la gestión de empresas. 
El segundo de los aspectos es destacar 
la validez del sistema MSX no sólo en 
cuanto a su compatibilidad inter 
aparatos, sino en su compatibilidad con 
aparatos de la gama IBM, la cual por 
cierto muy pronto sacará una máquina 
con diskettes de 3,5", y con periféricos 
que permitirán el acceso directamente 
desde el hogar a bancos de datos, 
cuentas corrientes bancarias, 
comunicaciones vía modem, etc. 
Además de lo apuntado hay otro dato 
que indica la buena salud del estándar. 
La compañía Sony, entre otras, iniciará 
en breve la comercialización de MSX 
en Portugal. Asimismo en Argentina, 
donde MSX CLUB es bien conocida de 
los usuarios del Talent MSX, y desde 
hace unos meses del Spectravídeo, 
también se comercializarán otras 
marcas MSX como la Hitachi, por 
ejemplo. 

Por encima de las modas o las 
prepotencias publicitarias, no cabe 
duda de que la norma se expande por el 
mundo. 

MANHATTAN TRANSFER, S.A. 
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empiezan con el ordena- 
dor y también para los 
expertos. 

TERCER CONCURSO MSX 
Iniciamos el Tercer Con- 
curso de Programación 
MSX. 



21 



CAZA PIRATAS 
En el Centenario de la 
Convención de Berna 
procuramos hacer respe- 
tar los derechos de autor. 



msxclub 



es un producto S.T.R. Asociados para MANTHATTAN TRANSFER, S.A. 
Director Editorial: Antonio Tcllo Salvatierra. 
Director Ejecutivo: Birgitta Sandbere. 

r . Rc í acc, °"- S,,v f st If P^ándcz. Claudia T. Hclbling. Dpto. Informática: Juan Carlos González 

T * M : J m Ca$tÍI M R¡ VaS : J ° Sé GafCÍa RuíZl Fcderico Alonso - Wil| y Miragall. Diseño y 

fwn « L, »«.Luis Maranez Ilustraciones: Carlos Rubio. Fotoportada: Fototeca. IMAGE BANK 

Dpto. Suscripciones: Silv.a Soler. Redacción. Administración y Publicidad: Roca i Batlle, 10-12 08023 

Barcelona. Tcl (93) 21122 56. Distribuye: GME, S.A. Pza. de Castilla 3. 15." E. 2, 28046 Madrid 
t a i . < 91 > 3,5 09 42 Fotomecánica: Llovet. S.A. Imprime: GREFOL, S.A 

Iodo el material editado es propiedad exclusiva de MANHATTAN TRANSFER, S.A. Está prohibida 
o parcial por cualquier medio del contenido de esta publicación sin la 
correspondiente autorización escrita. 




3 



Línea directa 



UN POCO DE TODO 

Tengo un buen paquete de 
problemas que me han ido 
apareciendo: 

—¿Qué es la RAM di- 
námica? 

— ¿Dónde puedo conseguir 
un mapa con todas las ruti- 
nas BIOS, variables del sis- 
tema, etc.? Si no lo consigo, 
¿pensáis publicar uno vo- 
sotros? 

También tengo un par de 
quejas: 





— En el «Especial Código 
Máquina» de MSX EXTRA 
no explicábais bien algunas 
variables del sistema. Por 
ejemplo: &HF6E4, pila usa- 
da en labores de recogida de 
basura. ¿A qué hacéis refe- 
rencia con eso? 
— ¿Por qué las casas de soft- 
ware tardan tanto en lanzar 
sus adaptaciones para MSX. 
Es una discriminación hacia 
el estándar o es falta de equi- 
pos de programadores espe- 
cializados en el manejo de 
ordenadores MSX? 
— ¿Existen instrucciones 
que actúen directamente so- 
bre el registro PC? No me 
refiero a instrucciones de 
salto tipo JP NN o deriva- 
das, sino a LD PC,NN, LD 
HL,PC, etc. 

— Si el Z80 no puede direc- 
cionar mas allá de 65536 by- 
tes, ¿cómo es que hay orde- 
nadores de 128 Kbvtes con 



un Z80 como micro? 

Javier Pérez Montes 
Barcelona 

— La RAM dinámica es un 
tipo de memoria de acceso 
aleatorio que necesita ser ali- 
mentada permanentemente, 
porque en otro caso pierde la 
información que contiene. 
La RAM estática, por el con- 
trario, permite desconectar el 
ordenador sin que se altere la 
información, aunque, a decir 
verdad, suele obtenerse a 
partir de RAM dinámica de 
bajo consumo alimentada 
con baterías. 

— Para obtener la informa- 
ción que desea sobre el siste- 
ma hay que ser, como míni- 
mo, primo de un alto cargo, 
puesto que ésta se halla en 
poder exclusivo de los fabri- 
cantes. Si te sirve de consue- 
lo, los programadores de esta 
casa estamos como tú, a la es- 
pera de conocer un poco más, 
gracias a la publicación de 
algún nuevo libro especiali- 
zado. La información extra 
la tenemos que conseguir a 
golpe de paciencia y desem- 
samblador, eso sí, la compar- 
timos con vosotros inmedia- 
tamente. 

— Detallar una por una to- 
das las variables del sistema 
es una tarea casi encilopédi- 
ca. Ten presente que ocupan 
algo más de tres mil bytes. 
En fin, en el número 23 de 
nuestra revista hermana 
MSX EXTRA, y dentro de 
la sección CALL, se explica 
qué es la « recogida de 
basura». 

— El motivo de que tarden 
tanto las adaptaciones al 
MSX no es otro que su difi- 
cultad. Hay que pensar que 
el estándar es de los pocos 
microordenadores que dis- 
fruta de un procesador de vi- 
deo independiente. El VDP 
está cargado de ventajas, pe- 
ro no puede competir en ve- 
locidad de acceso contra 
ordenadores que emplean 
parte de la memoria en con- 
tener la pantalla. Así, un 
programa fabricado para el 
SPECTRUM o para algún 
AMSTRAD puede resultar 
imposible de convertir a 



MSX si la velocidad de los 
gráficos es crítica. En contra- 
partida, un programa hecho 
para MSX que aproveche la 
facultad de manejar figuras 
móviles, quizás sea inadap- 
table a las referidas máqui- 
nas, ya que éstas no pueden 
manejar SPRITES. En la 
práctica, la conversión suele 
llevarse a buen término, 
aunque a costa de reescribir 
gran parte del programa. 
— No existe instrucción algu- 
na que controle directamente 
el PC. Las únicas son las de 
salto y los CALLS. Deduzco, 
empero, que lo que pretendes 
con algo como LD HL,PC es 
saber en qué lugar de la me- 
moria se encuentra la ejecu- 
ción del programa. Esto suele 
hacerse empleando algo pa- 
recido a esto: 
10 LD HL,hE9Eí 
20 LD (Dirección), HL 
30 CALL dirección 
La cosa funciona así: 
El registro HL es cargado 
con los códigos de POP HLy 
JP (HL)y su contenido pues- 
to en una posición de memo- 
ria en la que se sepa que no 
hay nada vital. Cuando el 
programa haga un CALL a 
la referida posición, lo pri- 
mero que encontrará será un 
POP HL, que servirá para 
sacar de la pila la dirección 
de retorno ae la rutina y pa- 
sársela a HL. Como la si- 
guiente instrucción es un JP 
(HL), el programa seguirá su 
ejecución en la siguiente ins- 
trucción al CALL, pero sa- 
biendo, gracias al registro 
HL, el lugar de la memoria 
donde nos encontramos. 
— En efecto, el Z80 no puede 
direccionar memoria más 
allá de 216. Sin embargo, el 
sistema MSX incorpora un 
CHIP encargado de conmu- 
tar páginas de memoria, de 
suerte que el microprocesa- 
dor pueda leer muchas pági- 
nas diferentes, en bloques de 
64K. Cada una de las pági- 
nas tiene una longitud de 
16K, y el sistema de conmu- 
tación de ranuras es capaz de 
manejar hasta 64 de éstas. 
Por consiguiente, la máxima 
memoria direccionable por 



los MSX es de 1M (1000K), 
aunque en un momento de- 
terminado sólo puede haber 
cuatro páginas a la vista de 
la CPU. 

Como puedes observar, es 
perfectamente factible que 
haya ordenadores de 128K (o 
más) con un 280. Por áerto, 
SONY presentó en la edición 
de SONIMA G del año pasa- 
do una tarjeta de 256K de 
RAM para los MSX, aunque 
no he vuelto a saber de ella. 




MODEM 



Desearía que me contestaran 
a estas dos preguntas: 
— ¿Qué precio tiene el MO- 
DEM MSX modelo 
SVI-808. 

— ¿Hay alguna impresora 
matricial que sea MSX y que 
escriba, por lo menos, en ro- 
jo y en negro? ¿Cuál es su 
precio? 

Jacobo Sánchez Luna 
Alicante 

— El MODEM/RS 232 que 
citas cuesta unas 17.000 ptas. 
— No hay ninguna impreso- 
ra matricial MSX que reúna 
las características que tú pi- 
des. Sin embargo, puedes 
tratar de adquirir una SEI- 
KOSHA GP-700 A, que dis- 
pone de un conector CEN- 
TRONICS compatible con 
los MSX. Es la única impre- 
sora en color asequible (unas 
75.000 ptas.), y puede impri- 
mir en negro, magenta, rojo, 
amarillo, verde, cyan y azul. 
Trabaja en 80 columnas a 50 
cps (caracteres por segundo). 
El inconveniente es que es 
incapaz de sacar los caracte- 
res gráficos de los MSX. 
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ML FX1 



Poseo un ordenador MIT- 
SUBISHI ML FX1 de 80K 
RAM. El problema es que 
los programas de más de 
32K no me cargan. Quizás 
sea debido a que tiene locali- 
zada la RAM en el slot 3. 
¿Qué se puede hacer para 

Cí 



José Muñoz 
San Sebastián 

El fallo está donde tú dices. 
Ahora bien, la solución al 
problema no es nada sencilla. 
Lo único factible es desprote- 
ger cada programa y susti- 
tuir, desde el código máqui- 
na, todas las instrucciones 
OUT (bA8),hA0 por OUT 
(bA8),hAF. En fin, quizás lo 
más práctico sea resignarse a 
perder los programas que no 
cargan. De cualquier forma, 
el defecto no obedece a un 
fallo en el ordenador, que 
entra dentro del estándar, si- 
no a los programas que no 
tienen en cuenta que la 
RAM de las dos primeras pá- 
ginas puede instalarse en un 
slot diferente al 2. Suele su- 
ceder lo mismo que te ocurre 
a ti en los ordenadores con 
cartucho de ampliación. 





AYUDA A LOS JUEGOS 

Aquí os mando un POKE 
para el programa CLAP- 
TON de MSX. Cargáis el 
programa con BLOAD 
«cas:». A continuación colo- 
cáis el siguiente POKE: PO- 
KE &HA069,n donde «n» 
es el número de vidas que 
queráis. Luego de esto, si 
hacéis POKE &HB1AA,9, 
los enemigos no os dispara- 
rán. Tras esto, sólo resta eje- 
cutar el programa y ya está. 
Francisco Javier Paz. 

(Madrid) 

Muchas gracias por el truco, 
estamos seguros de que todos 
los poseedores de CLAP- 
TON te lo agradecerán mu- 
cho más. 



ENSAMBLADOR 

Quisiera que me indicarais el 
precio de un ensamblador, 
en especial el «GEN» de 
SONY. Poseo un HIT-BIT 
HB55Pde 16K. ¿Puedo car- 
gar el ensamblador en mi 
ordenador? El ensamblador 
¿existe en cinta o en 
cartucho? 

Francisco Rubio Delgado 
(Salamanca) 

De poco te va a servir cono- 
cer el precio de «GEN» 



LENGUAJES 



mero es 



degustaría quc me comes 

^ran a las siguientes pe- 
guntas: p 

--¿Cuánto cuesta un cartu- 
cho o un cassette de EN- 
SAMBLADOR? ;v I 
PASCAL? cX de 

P Tía E S ,ÍUegOC ° mando 



de 4.400 ptas. y e l 
del segundo de 3.900 ptas 



—¿Que debo hacer para que 
SI m í ar , SPRITE GO- 
MJB d ordenador sólo cum- 
pla la condición cuando cho- 

sprItes? determinado * 

—¿Cómo puedo conseguir 
que se invierta el dibujo de 
un carácter como cuando se 
coloca el cursor encima de 
dicho carácter? 

r.c* iu U r 8 , USt ° Cru añes 
Castelldefels (Barcelona) 

-Tanto el compilador de \ 

fí/A nÁ D COmo el ENSAM- 
BLADOR se encuentran en 

ta lJ¿ ta " en ¿catálogo 



—Parece ser q Ue e ¿ juego 
Comando va a\pr *J 15 

P^a MSX un fu^ 
próximo. n fHtUro 

~T Lo ?" e deseas saber sobre 
eVl T €S de SPRIT ^ es 

ejemplar mismo 
—Para invertir un carácter 
e * preciso encender todos los 

ruedes hacerlo empleando U 
es un d to de u VR ¿ 
Respondiente al patrón de 
S 2PV ««%Sw y lo 
^"«t'jriableA'Jues 
*en, haciendo A=A XOR 

de dond sacite^rLTy 
r n T a l la operación en 
ocho bits que forman 



los 
ca- 



(aproximadamente 4.000 
ptas.) si a tu ordenador no le 
amplías la memoria median- 
te una unidad de expansión a 
64K. «GEN» es comerciali- 
zado por SONY en formato 
de cassette. 



CUESTIONES DIVERSAS 

Quisiera hacer las siguientes 
preguntas: 

— ¿Para qué sirven las sali- 
das AUDIO/VIDEO? 
— ¿Existe alguna instrucción 
BASIC para la autoejecu- 
ción de los programas aparte 
de LOAD «...»,r? 
— ;Existe algún interf; 



para 

















• •— " — i , " 






m < -'■ » 





imprimir texto o imagen so- 
bre video? 

Adolfo Pérez 
(Santoña) 

La salida AUDIO que in- 
corporan los aparatos MSX 
está prevista para poder co- 
nectar el ordenador a un 
equipo de alta fidelidad. La 
salida video está pensada pa- 
ra conectar el ordenador a 
un monitor. 

Además de LOAD *...«,r, 
para la ejecución automática 
de programas existe una ins- 
trucción que no viene re- 
señada en los manuales y que 
cumple el mismo cometido. 
Se trata de RUN«nomprog», 
que no es otra cosa que una 
variante de LOAD«nom- 
p.»,r. Es decir: estas dos ins- 
trucciones sirven exactamen- 
te para lo mismo; para que 
un programa grabado en 
formato ASCII se autoe- 
jecute. 

En cuanto al sobreimpresio- 
nador de imagen en video, 
existe para la segunda gene- 
radón de MSX, hay diversos 
modelos de MSX2 de varios 
fabricantes que lo llevan in- 
corporado. También el Pio- 
neer incorpora un super im- 
presor. 
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Tablón de anuncios 




Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas. Las 
características de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y 



copia de software 



es 



ctivo perseguido por la 



Compro Ampliación de 16 K o 64 
K por 4.000 ptas. más 60 juegos a 
can., entre ellos: yier Ar Kunfu I 
y II. Trac & Field I y II, Atletic 
Land y Circus Charlie. Gonzalo 
Márquez Benitez, c/Ntra. Sra. 
Merced S/N (CP. Aljoxani) - Tel. 
25 83 48. CP1. 

Contacto con usuarios del MSX 
para formar un club. José C. de la 
Fuente. c/Gran Capitán 3-5,2' 
Derch. Salamanca. CPi. 
Vendo Hit Bit HB-55P con am- 
pliación de memoria a 32K y 30 
juegos comerciales y manuales. 
Todo por 30.000. Luis Marcos Gi- 
ménez. C/Diputación n" 5-8.°. Silla 
(Valencia). Tel. (96) 120 21 58. 
CPI. 

Intercambio instrucciones de 
programas: juegos, gestión y edu- 
cativos. Miguel A. M. Emaldi. 
C/Labairu N° 1 1 -2", izq. Baracaldo. 
48902. VIZCAYA. CPl. 
Vendo ordenador Sony HB 55 P 
en impecable estado, precio a con- 
venir. Juan Gómez. Tel. 388 89 
08. BARCELONA. CPI. 
Vendo 20 juegos MSX: Hiper 
Sports 1, Yie Ar Kung Fu 1, Night 
Shade, Elidor Soccer, etc. por sólo 
5.000 ptas. Juan Enrique Porcada. 
c/La Carrera n. u 2,5". Burriana 
(Castellón). CPI. 
Intercambio órgano Casio Tone 
MT -65 nuevo por ordenador 
MSX y también intercambio jue- 
gos. José Camboa. Tel. (93) 437 23 
65. CPI. 

Cambio manuales (referencia y 
usuario) MSX y juegos por am- 
pliación-monitor color 20 pulg. 
por unidad de disco o impresora. 
También intercambio juegos en 
cinta o cart. Luis Abillira. Rial 
n.4 9. Poyo (Pontevedra). CPI. 
Vendo un ordenador Philips VG 
8.000 con cassette computore pro- 
gramas originales, libros y revis- 
tas. Todo 24.000 ptas. Alfonso 
Montoya. Tel. 43 16 17. Albox 
(ALMERIA). CPI. 
Vendo ordenador Sony HB-55P 
con ampliación de memoria de 
16K cartucho de Road Fighter y 
60 juegos de cintas por 25.000 
ptas. Juan Antonio Plaza Villar. 
c/Santa María, 6. Tel. (953) 77 600 
05. Torreperogil. 23320 JAEN. 
CPI. 

Cambio cartucho YIE ARKUNG- 
FU II o 40 juegos originales por 
otro cartucho como BOXING o 
HIPER RALLY. MANOLO. 
Tel. (954) 63 21 94. CPI. 
Vendo Data Recorder COMPU- 
TONE en buen estado, poco uso 
por 5.000 ptas. Tiene led indica- 
dor, save, contador de vueltas, co- 
nector para micrófono, cascos y 
remote. También posee una entra- 
da estándar dim. Gonzalo Már- 
quez Benitez. C/Ntra. Sra. Mer- 
ced , s/n. (Aljoxani). Tel. 25 83 48. 
CPI. 



Compro manual de Logo PHI- 
LIPS en cartucho. GUSTAVO 
CELA. C/Poeta Cabanillas n." 10, 
12 piso, 3" izq. 27004 LUGO. Tel. 
216793. CPI. 

Vendo 60 interesantes juegos en 
cartucho más COPY (2 por 4.000) 
o bien los cambio por: -cart. origi- 
nal (LOGO PHILIPS), -cart. de 
ampliación 16 o 64 K,-2 Joystick 
-cart. original (Champ) Micro By- 
te, -Libro consejos y trucos de 
DATA BECKER. Gonzalo Már- 
quez Benitez, C/Ntra. Sra. Mer- 
ced s/n. (CP. Aljoxani). CPI. 
Vendo Mitsubishi 80 K modelo 
ML- FK2 con 4 programas incor- 
porados en el ordenador Base de 
datos, Procesador de textos, Cál- 
culo electrónico, Creación de grá- 
ficos, con todo sus elementos y 
cinta de demostración. Regalo 
cassette de juegos de marca. Pre- 
cio a convenir. Preguntar por 
Yon. Tel. (943) 39 63 36. San Se- 
bastián. CPl. 

Cambio Mitsubishi MSX-M1- 
FXl con teclado numérico 80K 
RAm, con todos los elementos y 
16 juegos comerciales, más joys- 
tick mas Data -cassette por un 
PHILIPS, o por un HIT -BIT, o 
bien por un DINADATA que 
tenga la misma memoria. Roberto 
López Rodríguez. c/Juan XXIII 
N" 1. 27500 Chantada. LUGO. 
Tel. (982) 44 00 10. CPl. 



A LOS 

ANUNCIANTES 
DE ESTA 
SECCION 

Insistimos. El objetivo 
de esta sección es el de 
comunicar a nuestros 
lectores entre sí, pero 
no hacer publicidad 
metódica y gratuita de 
quienes se valen de la 
buena fe de esta redac- 
ción. A raíz de nume- 
rosas cartas recibidas 
denunciando un co- 
mercio subterráneo de 
cintas de juegos copia- 
das ¡legalmente, nos ve- 
mos obligados a no pu- 
blicar aquellos anun- 
cios que no especifiquen 
claramente qué se ofre- 
ce y qué se requiere pa- 
ra efectuar los inter- 
cambios. 



Cambio (DIP METER LEADER 
LDM 815)porSpectrum 48K. Re- 
galaría ordenador Ohio Scicntific 
CPU 6502. -Luis. Apart. 111-Es- 
parraguera CP 08080. CPl. 
Vendo cartucho Soccer por 3.000 
ptas. Floren González Fuentes. 
C/Alto Alday. N" 1-4 J Izqda. 
48500. San Salvador del Valle (Bis- 
kaia). CPl. 

Vendo ordenador Hit Bit Sony 
55P y regalo dos cartuchos de 
juegos y dos manuales. Todo en 
perfectas condiciones por sólo 
20.000 ptas. Andrés Sánchez Bo- 
nilla c/Martín de Gainza 15, 
41005 Sevilla - Tel. (954) 
65 53 47. CP2. 

Vendo módulo de ajedrez y car- 
tucho c/tablero y fichas para vi- 
deo-juegos Philips, un adaptador 
de tarjetas Bee Card c/jgo. adjun- 
to y 2 cart., 10 jgos. en cinta y 
más de 30 revistas MSX. Precio 
de cada cosa a convenir. Gonzalo 
Uncilla c/San Francisco 1 3, 3" Du- 
rango (Vizcaya) Tel. 681 15 21. 
CP2. 

Cambio programas originales. 
Poseo Chess 86, Backgammon, 
Time Bandits, etc. por The way 
of the tiger, Gunfright, Ghost- 
buster y otros originales. Enri- 
que Conejero Jarque c/Ancha 12, 
10600 Plasencia (¿áceres) CP2. 
Vendo radio cassette stereo c/do- 
ble pletina y salida auriculares. 
Toma de micrófono aux. p/mez- 
cla de grabac, Botón high speed 
dubbling, AM/FM, toma 9 vol- 
tios. Precio 14.500 ptas. Oscar 
Guillen. c/Enrique Salas, Arche- 
na (Murcia). CP2. 
Compro ordenador, monitor, 
unidad de discos, grabadora cas- 
sette, joysticks MSX, nuevos o 
usados. A. Dávila Apdo. 274 
45600 Talavera de la Reina (Tole- 
do). CP2. 

Busco curso de inglés para MSX. 
Carlos Martínez, c/Vizcaya 345, 
4" 1* 08027 Barcelona. CP2. 
Compro ampliación de memoria 
64K por 10.000 ptas. Angel Ois 
c/Cardoneira 3 y 5 2" Centro 
15001 La Coruña. CP2. 
Contacto con otros usuarios y 
otros clubs MSX. Club Mala- 
gueño MSX Avda. Manuel Go- 
ma 42, 5' A. 29013 Málaga - Tel. 
26 61 18. CP2. 

Vendo ordenador Dynadata 
DPC-200 de 80K c/200 progra- 
mas comerciales, revistas, etc. por 
50.000 ptas. Luis A. de la Fuente 
c/Gran Capitán 3-5 2" D. 37005 
Salamanca. CP2. 

Contacto c/usuarios MSX p/in- 
tercambio de programas e ideas. 
Principalmente deToledo. Emilio 
Matamata Ortega. c/Martínez Si- 
mancas, 14, 2" Izq. 45005 Toledo. 
Tel. (925) 22 17 96. CP2. 
Intercambio 3 cartuchos Konami 
(Yie ar Kung fu 2, Soccer y Athe- 



tic Land) por cartucho amplia- 
ción de 64K. Alfonso Castro, P° 
Txingurri 4, 6" D Herrera (San Se- 
bastián). Tel. (943) 39 14 24. CP2. 
Vendo Sony HB101P, garantiza- 
do, c/Libros de instrucciones, 
curso de Basic, en vídeo Beta jue- 
gos y listados de revista en casset- 
te. Todo por 40.000 ptas. Jorge 
Fernández Guerrero, c/Reina 
Victoria 4, 1" C Parla (Madrid) 
CP2. 

Compro cartucho de ampliación 
de 64K. Miguel. Font deis Cape- 
llans Torre 6, 3" 1* Manresa (Bar- 
celona) - Tel. (93) 873 12 38. 
CP2. 

Intercambio programa de utili- 
dades y juegos, en Toledo y pro- 
vincias. Oscar López Pérez, 
Alberche 136, 4" A. Edif. Grana- 
da, Pol. Industrial Toledo 45007 - 
Tel. (925) 232 26 84. CP2. 
Intercambio programas apareci- 
dos en MSX CLUB y MSX EX- 
TRA. Enviar lista de los que te 
interesan. Colomina Sánchez, 
Enrique Piré García 42, 3 o JZ. El- 
che (Alicante). CP2. 
Intercambio programas. Envía- 
me tus programas en C.M. graba- 
dos en una cinta y te la devolveré 
con otros nuevos. Javier Cosco- 
lín, Ap. Correos 4034, Córdoba - 
Tel. 23 94 87. CP2. 
Contacto con usuarios unidad de 
disco de 3.5" Jordi Codigna Cla- 
ret, c/Bilbao 11,4" 3' 08240 Man- 
resa - Tel. (93) 873 41 35. CP2. 
Vendo Philips VG8010 nuevo, 
impecable, sin tocar, c/manuales, 
garantía y cables originales, lista- 
dos de juegos, revistas MSX y 
cintas con más de 50 juegos. Todo 
29.980 ptas. Alberto Frías, Julián 
Gayarre 2, Castejón (Navarra). 
CP2. 

Intercambio tres juegos Yie ar 
Kungfu, Circus Charlie y Hero 

Por Taekwondo o Boxing y Road 
ighter. Luis Escudero García, 
Casablanca 11, Roquetas de Mar, 
Almería. CP2. 

Intercambio Yier Ar Kung Fu, 
Manic Miner, Blagger por otros 
de igual calidad. Club Ramsoft, 
Apdo. 33, 15960 Riveira (La Co- 
ruña). Tel (981) 87 10 78. CP2. 
Vendo Spcctravideo SV-328, cas- 
sette y revistas por 40.000 ptas. 
Montse Sala. Tel. (93) 427 39 50. 
CP2. 

Intercambio más de sesenta jue- 
gos comerciales y cassette especial 
p/ordenador por unidad de disco 
3,5". Ramón Alonso c/Buenavis- 
ta 2B Ello. 4 J Monteada i Reixac 
(Barcelona). Tel. (93) 564 39 06. 
CP2. 

Intercambiamos juegos. Club 
Estemur Nueva San Antón, 29, 
3"C. 30009 Murcia. CP2. 
Vendo SVI 728 MSX, data casset- 
te, dos joysticks, revistas, manua- 
les en español e inglés, 8 juegos, 



un cartucho y libro basic. Todo 
en perfecto estado. 55.000 ptas. 
Roberto Acosta Jiménez, c/Salva- 
dor Manrique de Lara 32-9" C 
35010 Las Palmas de G.C. CP2. 
Vendo consola de videojuegos 
Philips, c/cartucho, prácticamen- 
te a estrenar por 6.000 ptas. Alicia 
Ager, c/Ronda del Carmen 35, 6" 
D. Cáceres 10.002. Tel (927) 
24 10 82. CP2. 

Intercambio programas con ami- 
gos de toda España. Envíame tu 
cinta y te la devuelvo con otros 
nuevos. Responderé a todos. Ja- 
vier Martín Cruz c/Poeta Gerar- 
do Diego 11,1" Dcha. 39011 San- 
tander. Tel. (942) 33 09 16. CP2. 
Contacto con usuarios extranje- 
ros. Posibilidad de realizar pro- 
gramas conjuntamente. Intercam- 
bio de información, trucos, bi- 
bliografía, revistas, etc. A. Blanco 
Apdo. Correos 2168, 08200 Saba- 
dell (Barcelona). CP2. 
Intercambio Decathlon, Ghost- 
buster, Zaxxon, Pitfall II por Pa- 
norama para matar, Master of de 
Lamp, Grand National, etc. Igna- 
si Pony, Carretera de Cassernes, 
31 08680 Gironella (Barcelona) 
CP2. 

Vendo Toshiba HX10, cassette y 
cuatro programas. Todo en buen 
estado por 25.000 ptas. Alejandro 
de Julián Riera, Aragón 281, Pral. 
B 08009 Barcelona, Tel. (93) 
215 39 22. CP2. 

Vendo grabadora Sony TCM-2 
nueva, c/cable ordenador y un 
juego por 7.000. Contrarre- 
embolso. José A. Borrego c/Rei 
Martí L'Humá, 7. 17000-Girona. 
CP2. 

Intercambio programas MSX sin 
fines económicos. Enviar lista a 
José L. Vega. Pza. Salvador Riera 
/ Entio. 3* 08026 Barcelona. CP2. 
Cambio, compro, vendo progra- 
mas p/SVI 328. Miguel A. He- 
rraiz Diaz. c/Martínez Izquier- 
do 14, 28028 Madrid. CP2. 
Cambio todo tipo de programas 
en disco para el MSX.2 Antonio 
Millán San Emeterio c/Matía 44, 
4" dcha. 20008 San Sebastián - Tel. 
(943) 216 64 66, CP2. 
Intercambio juegos MSX por 
programas de aplicación. Emilio 
Sánchez Milla c/Minas 71, 1° 
02650 Montealegre (Albacete). 
CP2. 

Compro cartuchos ROM p/Spec- 
trum Plus, de juegos, deportivos y 
de mesa. También de utilidades. 
Lázaro de Soto. Apdo. 300. 21080 
Huelva. CP2. 

Vendo urgente. Hit bit 55P, car- 
tucho ampliación HBM 16K, 13 
cartuchos de juego, 24 progra- 
mas, cables originales, 5 libros, 
calculadora sin estrenar. Todo 
por 50.000 ptas. C/grabadora cas- 
sette Computone 5.000 más. 
Oscar Guillen Pay c/Enrique Sa- 
las, Archena (Murcia). CP2. 
Vendo Spectravídeo SVI 328 
80K, cassette SVI 404, Quick shot 
I y V, 12 programas, gestión y 
juegos, fuente de aliment. y dos 
manuales. Todo en perf. estado 

Kor 45.000 ptas. negociables. Juan 
luñoz Falcó c/Marino Blas de 



Lezo, 24, 5" Valencia, Tel. (96) 
371 53 79. CP2. 

Contacto c/usuarios Spectraví- 
deo 318/328 p/intercamb. progr. 
ideas trucos, etc. Feo. Javier 
Montero de la Cruz c/Oña 91, 7" 
2' 28050 Madrid, Tel. (91) 
201 75 76. CP2. 

Contacto c/usuarios MSX para 
formar un club. Juan Carlos Lo- 
rente. c/Ausona 82, Sabadell 
(Barcelona) Tel. (93) 716 25 83. 
CP2. 

Vendo Spectravídeo SV 328 c/ 
cassette, dos joysticks, interface 
centronics p/impresora, progra- 
mas, cartuchos, libros y manua- 
les, mapa de memoria. Completa- 
mente nuevo a 45.000 ptas. José 
M 1 Sánchez Benito c/Sebastián 
Elcano 23, 1" A, 33400 La Luz 
Aviles (Asturias) Tel. (985) 
57 45 14. CP2. 

Cambio jgo. Decathlon de Acti- 
vision con instrucciones por algu- 
no de los sgtes. jgos.: Super 
Chew, Tenis, Le Mans, H.E.R.O. 
Pin Ball o Fútbol. Daniel soto c/ 
Pedro II, 16, 1" 2- 07007 Palma de 
Mallorca. Tel. 41 58 60. CP2. 
Busco ampliación de 64K p/MSX. 
A ser posible intercambio por jgo. 
y cart. Santiago Cordón c/Tiro 
6-8 2" 3', 08035 Barcelona. CP2. 
Vendo ampliación de 16K p/ 
MSX. Santiago Cordón c/Tiro 
6-8, 2" 3% 08035 Barcelona. CP2. 
Vendo Booga Boo original por 
1.900 ptas. o cambio por Knight 
Lore. Roberto López Rodríguez 
c/Juan XXIII, 1, Chantada (Lu- 
go). Tel (982) 44 00 10 (21 a 23 
hs.) CP2. 

Intercambio juegos por otros, 
como Circus Charlie, Comman- 
do, Night Shade, Gungfright, etc. 
Oscar Abeijón, Plaza Compostel 
7, 2" A. Riveira (La Coruña). CP2. 
Contacto c/usuarios de Baracal- 
do. Poseo un MSX y deseo inter- 
cambio de juegos e ideas. José 
Miguel. Llamar al 438 32 22 (La- 
borables 15 a 17 hs. CP2. 

Vendo Sony HB-P y cartucho de 
jgos. Battle Cross por 30.000 
ptas. y compro ampliación de 
memoria de 64 K. por 9.000 ptas. y 
cartucho de jgo. Angel V. Moli- 
nero c/Bolivia 56-58, Zaragoza. 
Tel. (976) 31 46 22. CP2. 
Intercambio jgo. Le Mans 48 K 
c/instrucciones en castell. por al- 
guno de los sgtes.: Knight Lore, 
Alien 8 o Gunfright. Siró Garrido 
Padró c/Mogakoa D 10" Izqda- 
Portugalete (Vizcaya) Tel. 
461 16 14. CP2. 

Cambio Quickshot IX MSX joy- 
ball SVI sin estrenar por progra- 
mas MSX A. Morillas Avda. Luis 
More Castillo, 33A 1" 2" 08840 
Viladecans (Barcelona). CP2. 
Vendo Spectravídeo 728 más 
procesador de texto y base de da- 
tos, todo en perf. estado, sólo 
29.000 ptas. Miguel. Tel. (945) 
24 49 28 (tardes). CP2. 
Cambio 216 programas de revis- 
tas MSX por cartucho de amplia- 
ción de memoria 64K. José V. 
Planells Alagarda, c/Jesús Mo- 
rante Borrás 211, 46012 La Punta 
(Valencia). CP2. 




¡Haz saltar la pulga hasta 
lo más alto y podras ganar 
hasta 125.000 pts. en pre- 
mios! 

MSX CLUB DE PRO- 
GRAMAS y MIND GA- 
MES ESPAÑA, S.A. te des- 
afían a que juegues con Boo- 
ga Boo y ganes. Booga Boo 
es una simpática pulga salta- 
rina que cierto día cae a las 
profundidades de una cueva 
habitada por un peligroso 
dragón y plantas carnívoras. 
Tú, no solo tienes que sor- 
tear estos obstáculos, sino 
llevar a Booga Boo a la su- 
perficie superando los 80 ni- 
veles de que consta el juego 
y logrando la máxima pun- 
tuación. ¿Te animas? 

Bases 

1. Para participar remítenos: 

a) Una fotografía de la últi- 
ma pantalla de Booga Boo. 

b) Una fotografía del ta- 
blero de puntuación con tu 
nombre en el primer lugar. 

c) Al dorso de ambas fotos 
coloca tu nombre, direc- 
ción, teléfono y el número 
de referencia de Mind Ga- 
mes España, S.A., editor 
autorizado de Booga Boo 
en versión MSX para Es- 
paña, cjue figura en la cará- 
tula original. 

2. El ganador será el que 
obtenga mayor puntuación. 

3. En caso de haber más de un 
concursante con la máxima 
puntuación, el ganador se 
sorteará entre ellos. 

4. El premio al ganador con- 
sistirá en 125.000 pts. en 
software de Mind Games 
España S.A. y material di- 
dáctico de informática MSX. 



5. Todos los concursantes re- 
cibirán un regalo por su 
participación. 

6. El concurso caduca el día 
30 de noviembre de 1986. 

7. Quedan excluidos de parti- 
cipar en este concurso los 
empleados, agentes y fami- 
liares de los mismos de Quick- 
silva Ltd., Argus Specialist 
Publications, Alabaster Pass- 
more & Sons, Mind Games 
España, S.A., Ivex Films, 
S.A. v Manhattan Transfer, 
S.A. 

8. La participación implica la 
aceptación de las presentes 
reglas. 

9. Las decisiones de MSX 
CLUB DE PROGRAMAS 
serán inapelables y no se 
mantendrá corresponden- 
cia con los concursantes. 

10. Remite el sobre a: 

MSX CLUB DE 
PROGRAMAS 
CONCURSO 
BOOGA BOO 
Roca i Batlle 10-12 
Barcelona 08023 



¡¡GANA 125.000 pts.!! 







MSX por dentro 



iPor Joaquín López 



En torno a los SPRITES (III) 



COLISION 



La tercera parte de este artículo 
versa sobre un tema que levanta 
bastantes inquietudes entre los 
lectores: las colisiones. 
Llegar a saber qué figuras han 
chocado y, por extensión, dónde 
se ha producido el choque es el 
objetivo de esta tercera entrega. 



COLISIONES 

Como ya se dijo, sólo hay una 
forma de reconocer el número 
de plano de las figuras que cho- 
can: comprobar sus coordenadas. 

Supon por un momento que estás 
trabajando con SPRITES sencillos y sin 
ampliación. Estos habrán sido defini- 
dos en un cuadrado de 8x8 pixels. 
Cuando se produzca un choque entre 
dos figuras, la ejecución de programa se 
detendrá y hará un salto a la subrutina 
de la línea indicada por la instrucción 
ON SPRITE GOSUB xx. En ese ins- 
tante podrás tener la certeza (o casi) de 
que dos SPRITES han colisionado. 
Ahora bien, como el VDP de los MSX 
de la primera generación no se halla ca- 
pacitado para distinguir el número de 
plano de las figuras en contacto ni la 
posición de éstas en la pantalla, deberás 
comprobar una a una todas las coorde- 
nadas de los SPRITES en curso y veri- 
ficar si otra figura está lo suficiente- 
mente próxima como para justificar un 
choque. Pero, ¿cuán próximas deben 
estar dos figuras móviles para que coli- 
sionen? La respuesta es sencilla. Se 
considera como principio de coordena- 
das de los SPRITES el vértice superior 
izquierdo de los mismos. Por consi- 
guiente, para que dos figuras entren en 
contacto, tanto el valor de las coorde- 
nadas horizontales como el de las verti- 
cales de ambas deben diferir, como má- 
ximo, en siete puntos. Esto, natural- 
mente, está referido a figuras de 8x8 
pixel; para figuras más grandes habrá 
que considerar una posible colisión 
cuando sus coordenadas difieran en el 
tamaño del lado menos uno. 

UNA RUTINA PARA SABER 
LOS PLANOS 

La pequeña rutina que sigue te permiti- 
rá saber los planos de las figuras en co- 
lisión. Debes llamarla desde la subruti- 
na indicada en ON SPRITE GOSUB. 
A la salida, devolverá el número de pla- 
nos de los SPRITES en contacto en las 



Puede producirse un caso especial, que 
la rutina devuelva un cero en ambas di- 
recciones. Ello será debido a que el sis- 
tema operativo emplea tiempo en reac- 
cionar a tus órdenes y es posible que el 
VDP crea que hay dos SPRITES en co- 
lisión cuando en realidad uno de ellos 
ya ha sido borrado (asignando a su co- 
ordenada vertical el valor 209). Hay 
que tener presente que se produce una 
interrupción cada 1/50 segundos y, en- 
tre tanto, el microprocesador puede 
haber hecho muchas cosas (en realidad 
habrá realizado miles de instrucciones). 
Es preciso tener todo esto en cuenta, 
para que cuando la rutina dé el referido 
resultado no se tomen medidas en la 
creencia que el SPRITE cero ha coli- 
sionado. 

Aquí tienes su listado en ASSEM- 
BLER: 



LISTADO I 



8 



10 bufnomb: 


EQU 


IA000 


20 planos: 


EQU 


•9FFE 


30 TAMAÑO: 


EQU 


I9FFD 


40 vopi: 


EQU 


IF3E0 


so 


0R6 


IA100 


60 


LD 


DE , BUFN0MB 


70 


PUSH 


DE 


80 


LO 


HL.6912 


90 


LD 


BC.2S6 


100 


CALL 


IS9 


110 


POP 


DE 


120 


LD 


IX, TAHAN0 


130 


LD 


A. CVDP1) 


UO 


ANO 


3 


1S0 


LO 


L,8 


160 


JR 


2, SALIDA 


170 


LD 


L,32 


180 


CP 


3 


190 


JR 


2, SALIDA 


200 


LO 


L, 16 


210 SALIDA: 


LD 


A,L 


220 


LO 


( TAMAÑO) , A 


230 BUCLE: 


LO 


H,D 


240 


LO 


LE 


250 


LO 


A, (DE) 



260 


SUB 


208 


270 


JR 


2. INI 


280 


DEC 


A 


290 


JR 


2, CONT 


300 


ADD 


A/241 


310 


LD 


G,A 


320 BUCLEl: 


INC 


L 


330 


INC 


L 


340 


INC 


L 


350 IN2: 


INC 


L 


360 


JR 


2, CONT 


370 


LD 


A,(HL) 


380 


SUB 


208 


390 


JR 


2, BUCLEl 


400 


DEC 


A 


410 


JR 


2, BUCLEl 


420 


A0D 


A, 241 


430 


CALL RUT 


440 


JR 


COK 


450 


JR 


BUCLEl 


460 cont: 


INC 


E 


470 


INC 


E 


480 


INC 


E 


490 


INC 


E 


500 


JR 


NZ, BUCLE 


510 INI : 


LD 


HL,0 


520 


JR 


IN0 


530 qk: 


INC 


E 


540 


INC 


L 


550 


PUSH BC 


560 


LD 


C,(HL) 


570 


INC 


L 


580 


INC 


L 


590 


LD 


A,(HL) 


600 


CP 


16 


610 


JR 


C0K1 


620 


LD 


A,C 


630 


SUB 


32 


640 


LD 


C,A 


650 oki: 


LD 


A, (DE) 


660 


INC 


E 


670 


INC 


E 


680 


PUSH AF 


690 


LD 


A, (DE) 


700 


CP 


16 


710 


JR 


C0K2 


720 


POP 


AF 


730 


SUB 


32 



740 


PUSH AF 


750 0K2: 


POP 


AF 


760 


CALL RUT 


770 


POP 


BC 


780 


JR 


CENCONT 


790 


DEC 


E 


800 


DEC 


E 


810 


DEC 


E 


820 


JR 


IN2 


830 encqnt: 


DEC 


L 


840 


DEC 


E 


850 


LD 


A, (DE) 


860 


LD 


H,(HL) 


870 


LD 


M 


880 INO: 


LD 


(PLANOS) ,HL 


890 


RET 




900 ; 






910 ; 






920 ; 






930 RUT: 


SUB 


C 


940 


CP 


(IX+O) 


950 


RET 


C 


960 


NEG 




970 


CP 


CIX+O) 




FUNCIONAMIENTO 
DE LA RUTINA 

La rutina está formada siguiendo el clá- 
sico algoritmo de la búsqueda binaria. 
Este sistema, que peca de lento cuando 
se trata de buscar a través de series lar- 
gas, resulta aquí tan útil como el que 
más, puesto que el número de SPRI- 
TES está limitado a 32. 
En síntesis, se trata de comparar las co- 
ordenadas del SPRITE cero con todos 
los demás. Si la posición vertical o la 
horizontal no indican una colisión, se 
pasa a comprobar el SPRITE uno con 
los siguientes, etc. Como veis, el núme- 
ro máximo de ciclos de búsqueda será 
de 31*(31 + l)/2, es decir, 496. El tiem- 
po total empleado por la rutina oscila 
entre algo más de 100 milisegundos, en 
el peor de los casos (si han colisionado 
los SPRITES 30 y 31), y algo menos de 
10 milisegundos, si ha chocado el 
SPRITE 0 con otra figura. Todo esto 
resalta la conveniencia de construir un 
programa de forma que los SPRITES 
susceptibles de chocar con mayor faci- 
lidad ocupen los primeros números de 
plano, ya que la rutina completará el 
trabajo como mayor rapidez. 
Lo primero que hace la rutina es copiar 
el contenido de la tabla de atributos de 
los SPRITES en un BUFFER en la 
RAM de la CPU (líneas 60 a 1 10), a fin 
de acceder al VDP de un solo paso. En 
el caso de que queráis cambiar la ubica- 
ción de la rutina, con la ayuda de un 
ensamblador, deberéis tener en cuenta 



ue ésta funciona sólo si la dirección 
el BUFFER es múltiplo exacto de 
256, de suerte que sea fácil comprobar 
si se ha llegado al final de la tabla, mi- 
rando si el byte bajo de los punteros 
(DE y HL) es cero. 
Por otro lado, la rutina funciona in- 
dependientemente del tipo de SPRITE 
empleado. Las líneas 130 a 220 sirven 
para identificar este tipo y poner el ta- 
maño en una posición de memoria, a 
fin de que la rutina que compara las 
coordenadas (RUT, líneas 930 a 980) 
sepa el valor a restar. 
A continuación se incluye el cargador 
de líneas DATA. Es interesante que 
respetéis los números de línea del mis- 
mo. Para comprobar su funcionamien- 
to, teclead en modo directo: 
RUN 420. 

Si todo va bien el programa se detendrá 
con un error del tipo: RETURN wit- 
hout GOSUB. 



LISTADO 2 



10 60SUB420:' LANZAMIENTO RUTINA 
420 1 

430 1 PROGRAMA CARGADOR 
440 ' 

450 FORX =&HA 1 00 TQ4HA 191: READVS 
460 PQKEX , VALC "&H"+V$ ) : S=S+PEEKC X ) 
470 NEXT 

480 IFS<>14709THENBEEP:CL$:PRINT"HAY UN 
ERROR" :END 
490 RETURN 

500 DATA11, 00, A0, 05,21, 00, 1B.01, 00,01, C 

D, 59,00,D1,DD,21,FD,9F,3A,EO,F3,E6,03,2 

E, 08, 28, 08, 2E, 20, FE, 03, 28, 02, 2E, 10,70,3 
2,FD I 9F,62,6B,1A,D6,D0,28,23,3D,28,1A,C 
6 ) F1,4F,2C ( 2C,2C,2C,28,11,7E,D6,00,28,F 
S 3D 28 

510 DATAF2.C6.fi, CD, 87, Al, 38,00, Í8.E9.1 

C, 1C,1C,1C,20,06,21,00,00,18,2D,1C,2C,C 
5, 4E,2C,2C,7E,FE, 10,38,04, 79,06, 20, 4F.1 
A,1C,1C,F5,IA,FE 1 10 I 38,04,F1,D6,20 ( F5,F 
1.CD.87, Al, Cl, 38,05, 10, 10,10,18, B9.2D.1 

D, 1A,66 

520 DATA6F,22,FE,9F,C9,91,DD,BE,00,D8,E 
0,44, 00, BE, 00, C9 

PROBANDO LA RUTINA 

El siguiente programa sirve para com- 
probar el funcionamiento de la rutina. 
Había construido algo más sencillo pa- 
ra el cometido, pero al final he optado 
por agregarle unas líneas y convertirlo 
en un juego (sin pretensiones). La cosa 
funciona así: 

Las líneas hasta la 130 sirven para asig- 
nar a todos los SPRITES un cuadradín 
de 8x8. La mayoría de éstos son de 



color amarillo, pero hay uno blanco (el 
móvil) y varios rojos. 
Las líneas 140 a 280 tienen como come- 
tido mover el cuadradín blanco a lo lar- 
go de todas la pantalla, comprobando 

3ue éste no salga de la pantalla. Para 
esplazarlo basta con utilizar las teclas 
del cursor o un joystick conectado al 
puerto uno. 

Las líneas a partir de la 290 conforman 
la subrutina de tratamiento de colisio- 
nes, llamando a la rutina en C.M. y bo- 
rrando el SPRITE con el que choque el 
cuadradín blanco. 

El funcionamiento del juego es muy 
simple. Al hacer RUN el cuadradín 
blanco empieza a moverse y ya no se 
puede detener. Si el cursor blanco coli- 
siona con un cuadradín amarillo, se lo 
«come» y éste último desaparece de la 
pantalla. Por contra, si el cursor blanco 
toca a un cuadradín rojo, el juego fina- 
liza, así como si se roza cualquiera de 
los bordes de la pantalla. El problema 
es que cada vez que nos «zampamos» 
un cuadradín amarillo la velocidad del 
cursor aumenta y es más difícil contro- 
larlo. En fin, como veis, el objetivo es 
acabar con todos los cuadradines ama- 
rillos, aunque particularmente yo no lo 
he conseguido. 




20 ' 

30 ' QEÍI0 
40 1 

50 SCREEN 1 : KEYOFF : COLOR 15 , 1 , 4 

60 KEY1,"SCREEN0'+CHR$(13) 

70 DEFUSR=*HA100:V=1.8 

80 0NSPRI TE60SUB290 

90 F0RX=0T07: A$=A$+CHR$(255) : NEXT 

100 F0RZ=0TO3l:SPRITE$(Z)=AI 

110 X=X+8:Y=RND(Z)*185 

120 PUTSPRITEZ,(X,Y),ll*5*(Z/4=INT(Z/4) 

) 

130 NEXT 

140 X=124IY=88 

150 PUTSPRITE0,(X,Y),15 

160 SPRITE0N 

170 IFX)2470RX<OORY<-10RY>183THEN410 
180 A=STICK(0):B=STICK(1):A=A+B:IFA=0TH 
ENA=A1 
190 A1=A 

200 0NAG0T02 1 0 , 220 , 230 , 240 , 250 , 260 , 270 , 
280 

210 Y=Y-V:60T0150 

220 y=y-v:x=x+v:gotoi50 

230 X=X+V:60T01S0 

240 Y=Y+V:X=X+V:G0T0150 

250 Y=Y+V:G0T0150 

260 Y=Y*V:X=X-V:60T0150 

270 X=X-V:G0T0150 

280 x=x-v:y=y-v::gqtoi50 
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MSX por dentro 




290 SPRITEOFF 

300 2=USR(0) 

310 Sl=PEEK(iH9FFE) 

320 S2=PEEK(iH9FFF) 

330 IFS1+S2=0THEN360 

340 PUTSPRITES2, (0,209) 

350 IFS2/4=INT(S2/4)THEN410 

360 PIAY"6" 

370 V=V+.4:0K=0K+1 

380 IF0K=24THEN400 

390 SPRITEON: RETURN 

400 SCREEH1 SPRINT-PERFECTO" 

410 play-catarro-:end 
CONCLUSIONES 

El programa anterior está preparado 
para funcionar directamente con el car- 
gador de líneas DATA. A tal efecto, se 
na previsto que los números de línea de 
ambos programas se complementen. 
El objetivo del programa que contiene 
el pequeño juego no es otro que servir 
de demostración al empleo de la rutina 
ASEEMBLER. Con el lo he pretendido 
dejar entrever de qué forma tan simple 
puedes usar la referida rutina en cual- 
quiera de tus programas. Por cierto, si 
deseas saber además del número de pla- 
no de los SPRITES en colisión el lugar 
de la pantalla donde se ha producido 
ésta, debes empezar por conocer la for- 
ma en que se guardan los atributos de 
los SPRITES en la VRAM. La tabla de 
atributos empieza en la dirección 6912 
(tanto en SCREEN 1 como en SCRE- 
EN 2). La longitud total es de 256 by- 
tes y cada figura emplea cuatro bytes, 
distribuidos así: 



Byte 1-Coordenada vertical 

2- Coordenada horizontal 

3- Número de plano 

4- Color 

Tanto la coordenada vertical como la 
horizontal admiten valores negativos 
(hasta —31). En el primer caso esto se 
consigue empleando la notación en 
complemento a dos, esto es, 255 para 
-1, 254 para -2, etc. En el segundo 
caso se recurre a un ingenioso artificio 
que consiste en emplear el bit siete del 
byte dedicado al color como señal de 
que el SPRITE debe ser situado 32 pi- 
xels a la izquierda. Así, si se desea po- 
ner una figura en la posición horizontal 
— 1, el sistema colocará un 31 en el ter- 
cer byte y pondrá el séptimo bit del 
byte del color a uno (3 1 —32 = — 1). Este 
truco es posible debido a que bastan 
cuatro bits para representar el código 
de cualquier color y los otros cuatro 
bits quedan libres. 

Con esta información, y sabiendo, gra- 
cias a la rutina, el número de patrón de 
los SPRITES en contacto, es sencillo 
deducir en qué coordenadas se obtie- 
nen gracias a unas líneas como éstas: 



LISTADO 4 



10 ' COORDENADA VERTICAL 

20 Y=VPEEK(N0. PLANW4) 

30 IFY>224THENY=Y-256 

40 ' COORDENADA HORIZONTAL 

50 X=VPEEK(NQ. PLANQ*4*1) 

60 IFVPEEKÍN0. PLAN0*4*2X15THENX=X-32 

Sólo una cosa más: por conveniencia, la 
rutina coloca el SPRITE con menor 



número de plano en primer lugar (en la 
posición &H9FFE). 



LIMITACIONES 

Es evidente que una rutina tan corta 
(menos de 250 bytes) debe tener limita- 
ciones. La más importante es el hecho 
de que no se toma en consideración la 
forma de las figuras. En efecto, es per- 
fectamente posible que dos figuras es- 
tén muy próximas y no tengan ningún 
punto coincidente y, de forma contra- 
ria, dos SPRITES pueden estar en con- 
tacto a través de un único pixel y en- 
contrarse relativamente alejados. De 
cualquier manera, la rutina busca figura 
tras figura hasta encontrar dos que 
pueden estar en contacto, atendiendo a 
sus coordenadas. Cuando se produce 
este hecho, la rutina interrumpe la bús- 
queda y vuelve al BASIC. Por tanto, es 
posible que se dé el caso de que los pla- 
nos devueltos no correspondan con los 
SPRITES en colisión, aunque, a decir 
verdad, esto sólo se producirá si el pro- 
grama con el que funciona la rutina 
contiene SPRITES poco rellenos y hay 
varias figuras que se mueven con posi- 
bilidades de colisionar. 
Es fácil, empero, ampliar la rutina para 
protegerse de los inconvenientes cita- 
dos anteriormente. Tras comprobar 
ue las respectivas coordenadas X e Y 
e las figuras hacen posible el contacto, 
la rutina salta a la etiqueta «EN- 
CONT». Si a partir de ahí se miran los 
patrones, es relativamente sencillo de- 
terminar si verdaderamente tienen, al 
menos, un punto en común. 
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MSX- 

iidúd/ Precio 



DRO SOET 




Perdido en un laberinto de 
256 habitaciones lucha en con- 
tra del tiempo y las radiaciones 
letales para teleportarte a 
lugar seguro. También incluido 
en esta cinta un único y fácil 
de utilizar, sistema de constru- 
cción de laberintos, que te 
permitirá corregir el existente 
o crear otros nuevos. 

MSX 

COMMODORE 




KNIGHTTYME 

La tercera de la serie de aven- 
turas Magic Knight, se encon- 
tró a si mismo transportado 
al siglo 25 abordo de la nave 
estelar PISCIS. El juego utili- 
za un sistema mejorado de 
animación, que fue utilizado 
por primera vez en Spellbound. 
¿Será éste el fin de Magic 
Knight?. 

SERIE M.A.D.: P.V.P. 1.100 PTAS. 



FORMULA 1 

El juego de competición de 
mayor realismo, con los diez 
circuitos más famosos, 
SILVERSTONE, MONACO, 
MONZA... etc. 

¡3, 2, 1... Adelante! 



SPEED KIIMG 

El juego de carreras de Moto- 
cicletas con la emocionante 
acción de correr rueda con 
, rueda contra otros 19 pilotos 
[Ponte el casco y vive la inol- 
vidable aventura de las motos 
de a*ltas prestaciones compi- 
tiendo a 250 millas a la hora! 




Mi 



SPACE WALK 

Eres un astronauta al mando 
de la Lanzadora Espacial. 
Desde tu base en la luna vigilas 
los satélites, descarriados y 
tienes que recuperarlos. Tra- 
baja por la superficie de la luna 
y cuando sea necesario utiliza 
el JET-PACK para propulsarte 
al satélite. 

Licencia exclusiva para ESPAÑA DRO SOFT 
¿ Fundadores, 3 28028 MADRID 
Tets. 255 45 00/09 



rograma 



iPor José A. Valera 



LA 

BRISCA 



10 REH ttttt JUEGO DE LA BRISCA ttttt 

20 SCREEN3:C0L0R 13,4.4:0PEN'GRP:"AStl 

30 PSET (35, 8f ) : PRINTtl , "BRISCA" 

40 PLAY"o514arbcdrad' 

50 FOR T«I TO 2000: NEXT T 

70 60SUB 1000: REH MUESTRA INSTRUCCIONES 

80 GOSUB 1500: REH BARAJEO CARTAS 

90 COLOR 15,l,l:CLS:LINE(210,40)-(255,54 

),4,8F:LINE'210,10)-(250,30),6,BF:LINE(2 

10,170)-(250,190),6,BF:LINE(214,14)-(245 

,26U,BF:LINE(214, 174)-(245,1B6),1,BF 

100 REH mt PROGAMA PRINCIPAL tttt 

110 X=1:F0R Q=l TO 5 STEP 2 

120 A1(X)=A(Q):B1 (X)=B(Q) : A2(X) =A(Q+1 ) :B 

2(X)=B(0+1) 

130 GOSUB 2000:REM PINTA PARTE TRASERA D 
E LA CARTA DEL ORDENADOR 
140 N=A2'X):P=B2(X):G0SUB 3000:REH PINTA 
CARTA JUGADOR 
150 X=X*1:NEXT Q:X=0 

170 X2=210:Y2=55:N=A(36):P=B(36>:GOSUB 4 

000: REH DIBUJA CARTA MUESTRA 

180 IF B=0 THENGOSUB 10000 : GOSUB 11000: 

60T0 200: REM PRIMERA TIRADA 

190 GOSUB 11000:GOSUB 10000:REM PRIMERA 

TIRADA 

200 GOSUB 5000: REM HALLA QUIEN GANA 

210 FOR 0=7 TO 35 STEP 2 

220 IF B=l THEN Al (J)=A(Q) :B1 (J)=B(Q) :A2 

( I ) =A (Q+l ) : B2 ( I ) =B (Q+l ) : GOSUB 2000: N=A2 ( 

I ) : P=B2 í I ) : GOSUB 3000: GOTO 240 

230 A1(J>=A(Q+1):B1(J)=B(Q*1):A2(I)=A(Q) 

: B2 (J ) =B (8) : N=A2 ( I ) : P=B2 ( I ) : GOSUB 3000: G 

OSUB 2000: GOTO 250 

240 COLOR 4:PSET(210,45):PRINT#1."1M|": 

PSET (220, 45) : COLOR 15: PRINTtl , 36-Q-l : GOS 

UB 11000:6OSUB 10000:GOTO 260 

250 COLOR 4:PSET(210,45):PRINTtl,"BII": 

PSET '220, 45): COLOR 15: PRINTH1, 36-9-1: GOS 

UB 10000: GOSUB 11000 

260 GOSUB 5000: REM HALLA QUIEN GANA 

300 NEXT Q 

310 FOP H=l TO 2 

320 IF B=0 THENGOSUB 10000: GOSUB 11000:6 
OTO 340 

330 GOSUB 11000:GOSUB 10000:REM PRIMERA 
TIRADA 



Estamos ante un magnífico progra- 
ma que simula el popular juego de la 
brisca, en el que se destaca el excelente 
grafismo y la correcta ejecución del 
juego en el que tienes que enfrentarte 
al ordenador. 




340 GOSUB 5000:PEM HALLA QUIEN GANA 
350 NEXT H 

360 FOP T=l TO 1000:NEXT T 

370 COLOR 15,4,4:CLS:PSET(50.B0) 

380 IF P2>P1 THEN PRINTtl. "ME HAS GANADO 

";P2;"A";P1:G0T0 400 

390 IF P1>P2 THEN PRINTtl, "TE HE GANADO, 
P0R";P1;'A";P2:G0T0 400 
395 IF P1=P2 THEN PRINTtl, "HEMOS EMPATAD 
0 A:";P2 

400 FOR T=l TO 3000: NEXT 

405 CLS:PSET (20. 100) ¡PRINTtl, "QUIERES SE 

6UIR JUGANDO [S/N]" 

410 A$=INKEY$:IF A$=" THEN 410 

420 IF A$="S" OR A$="s" THEN RUN 80 

430 IF AI="N" OR A$=V THEN END 

440 GOTO 410 

1000 REH SUBRUTINA QUE MUESTRA INSTRUCCI 
ONES 

1010 SCREEN 0: KEY 0FF:C0L0R 1.7,7:HIDTH 
36 

1020 LOCATE 4,0:PRINT" — I N S T R U C C 

I 0 N E S — ": LOCATE 4,2 
1025 LOCATE 4,2:PRINT"ESTE ES EL POPULAR 

JUEGO DE LA BRISCA, Y TENDRAS QUE ENFR 
ENTARTE AL ORDENADOR. EL MARCADOR DE A 
RRIBA INDICA LOS PUNTOS QUE LLEVA EL ORD 



E-NADOR, EL DE ABAJO LOS QUE LLEVAS TU. 
Y EL DEL CENTRO LAS CARTAS QUE HAY EN LA 
BARAJA." 

1050 LOCATE 4,11:PRINT"PAPA TIRAR UNA CA 
RTA TECLEA:" 

1055 LOCATE10, 13: PRINT" I-IZQUIERDA" 

1056 LOCATE10,15:PRINT"2-CENTRO" 

1057 LOCATE10. 17 : PRINT "3-DERECHA" 
1070 LOCATE 9,20:PRINT"!!!!SUERTE I ! M " 
1080 LOCATE 8.22:PPINT"PULSA UNA TECLA" 
10"0 A$=INKEYf : IF A$="" THEN 1090 

1100 PETURN 

1500 REM SUBRUTINA DE BARAJEO DE CARTAS 
1510 SCREEN 2:C0L0R 15, 12, 12: CLS: CLOSE: O 
PEN"grp:"AStl 
1515 U S RND'-TIHE) 
1520 PSET'20.80) ¡PRINTtl, "ESPERA UN MOME 
NTO POR FAVOR" 
1530 PSET (60, 120) ¡PRINTtl, "ESTOY BARAJAN 
DO" 

1540 DIM C(36),A(36),B(36) 
1550 FOR FX=1 TO 36 
1560 W=INT(PND(1)»36)+1 
1570 FOR 6M TO FX 
1580 IF C(6X)=W THEN 1560 
1590 NEXT GX 
1600 C(F7.)=N 
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Programa 
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1610 NEXT n 

1620 FOR T=l TO 36 

1630 READ Z,V 

1640 A(C(T))=Z:B(C(T))=V 

1650 NEXT: ERASE C 

1660 REM DATAS CARTAS, PRIMER NUMERO ES 
EL NUMERO DE LA CARTA, EL SEGUNDO ES EL 
PALO 

1670 DATA 1,1,1,2,1,3,1,4,3,1,3,2,3,3,3, 
4,4,1,4,2,4,3,4,4,5,1,5,2,5,3,5,4,6,1,6, 
2,6,3,6,4,7,1,7,2,7,3,7,4,10,1,10,2,10,3 
,10,4,11,1,11,2,11,3,11,4,12,1,12,2,12,3 
,12,4 

1680 PSET (40, 180) :PPINT#1 , "QUIERES TIRAR 
PRIHERO(S-N) D :A$=INKEY$:IF A$="" THEN 1 
680 

1685 IF A$="S" OP A$=V THEN B=0:GOTO 1 
700 

1690 B=i 
1700 RETURN 

2000 REM SUBRUTINA QUE MUESTRA LA CARA T 
RASERA DE LAS CARTAS DEL ORDENADOR 
2005 IF Q=35 THEN LINE (210. 55) - ( 255. 135! 
,1,BF 

2010 IF X=l OP J=l THEN X 1=0: Y1=0: GOTO 2 
500 

2020 IF X=2 OP M THEN Xl=50: Y1=0:GOTO 
2500 

2030 X1=100:Y1=0 

2500 LINE(X1,Y1)-(X1+45.Y1+S0),4.BF 
2510 FOP T»i TO 400:NEXT T 
520 RETURN 

3000 PEM SUBRUTINA QUE MUESTRA CARTA DEL 
JUGADOR EN LAS COORDENADAS X2.Y2 
3005 IF Q=35 THEN L INE (210. 55) - (255. 135) 
,1.BF 

3010 IF X=l QR W THEN X2=0: Y2=l 10: BOTO 
3500 

3020 IF X=2 OP 1=2 THEN X2=50:Y2=U0: GOT 
O 3500 

3030 X2=100:Y2=U0 
3500 GOSUB 4000: REM DIBUJO CARTA 
3510 N=0:P=0:RETURN 
4000 REM SUBRUTINA QUE DIBUJA CARTA CON 
SUS PALOS EN LAS COORDENADS X2.Y2 
4010 LINE(X2.Y2)-(X2+45,Y2+80),15.BF 
4020 LINE (X2+3. Y2*3) - (X2+42. Y2+77) . 1, B 
4030 IF P=l THEN C$=V4H16qlr8f 11 10dlrl 
0dlI10dlrl0dlll0ílr8gil6flr4 B :COLOP 10:0 
=3:01=-2:60TO 4070 
4040 IF P=2THENC$= u r8g!16flr4gtl2f314e3" 
: COLOR 6:O=0:O1=0:GOTO 4070 
4050 IF P=3 THEN C*='rldt21 lul2d913r7':C 
OLOR 4:0=4:01=0:6010 4070 
4060 IF P=4 THEN C$="rlul41 Idl4u611u7r3d 
7":C0L0R 12:0=4:01=10 
4070 PEHttHttDIBUJOSmtttmMtt 



4080 ON NGOTO 4090, ,4150.4280.4340,4370, 

4410,,, 4440, 4480, 4520 

4090 REHItttttlttASItttlttltlttlt 

4100 IF P=l THEN CIRCLE (X2+23, Y2+40) , 13, 

10:PAINT(X2+30,Y2+40):RETURN 

4110 IF P=2 THEN PSETU2+10, Y2+30) :DRAW 

r24gl2f6112e6hl2":PAINT(X2+20,Y2+37):RET 

URN 

4120 IF P=3 THEN PSET ( X2+19, Y2+15) :DRAM" 

e3f3d616u6':PAINT(X2+20,Y2+15),4:PSET(X2 

♦17,Y2+32):DRAH"d30f5e5u30110':PAINT(X2+ 

19, Y2+35 ) : COLOR 6: PSET ( X2+12, Y2+23) : DRAM 

"r 20d81 2fu8": PAINT I X2+15, Y2+26) , 6: RETURN 

4130 IF P=4 THEN L I NE ( X2+30, Y2+1 5 ) - ( X2+1 

0,Y2+60),12:LINE(X2+34,Y2+15)-(X2+20.Y2+ 

70),12:CIRCLE(X2+15.Y2+65),7,12,2,6:LINE 

(X2+30,Y2+15)-(X2+34,Y2+15),12:PAINT(X2+ 

15, Y2+65) , 12 

4140 RETURN 

4150 REMmmttfTREStmtmmm 

4160 IF P=l THEN C I RCLE í X2+1B. Y2+20) ,B, 1 
0:PAINT(X2+20, Y2+20) , 10: CIRCLE ( X2+18. Y2+ 
60),8,10:PAINT(X2+18.Y2+60!:CIRCLE(X2+28 
,Y2+40),B,10:PAINT(X2+2B,Y2+40):RETURN 
4170 IF P=2 THENC$='rl6g8f418e4h8":PSET( 
X2+10,Y2+15):DRAH C$:PAINT(X2+17,Y2*20): 
PSET(X2+10,Y2+55):DRAHC$:PAINT(X2+17,Y2+ 
60) : PSET ( X2+20. Y2+35) : DRAW C$: PAINT ( X2+2 
5. Y2+38) ¡RETURN 
4180 IF P=4 THEN 4240 
4190 T=1:G=0 

4200 COLOP 4:PSET(X2+ll+G.Y2M5):DRAH"e2 
f2d614u6":PA!NT(X2+14+6.Y2+17),4:C0L0R 6 
:PSET(X2+8+G,Y2+22):DRAW"rl0d4110u4":PAI 
NT(X2+9+G,Y2+24\ 6: COLOR 4: PSET (X2+1 1+6, 
Y2+27) :DFAWd38f 2e2u3814'*:PAINT(X2+12*G. 
Y2+28),4 

4210 IF T=t THEN T=2:G=19:G0T0 4200 
4220 PSET(X2*23,Y2+67):DRAH-e2u614d6f 2': 
PAINT(X2+24.Y2+65):C0L0R 6:PSET(X2+18,Y2 
♦58):DRAW"rl0u4!10d4":PAINT(X2+l°.Y2+56) 
, 6: COLOR 4: PSET ( X2+21, Y2+53) : DPAW"u38e2f 
2d3814":PAINTíX2+22.Y2+50).4:RETURN 
4240 T=l:6=0 

4250 LINE(X2+10+6.Y2+l5)-(X2+8+6,Y2+60). 
12:LINE(X2+10+6,Y2+15)-(X2+13+6.Y2+15),1 
2:LINE(X2+13+6,Y2+15)-(X2+15+G,Y2+60).12 
:CIRCLE(X2+12+G.Y2+57),4,12,3,6:PAINT(X2 
+12+5.Y2+58) .12 

4260 IF T=l THEN T=2: 6=2 1 : GOTO 4250 

4270 LINE(X2+20,Y2+60)-(X2+18.Y2+17),12: 

LINE(X2+20,Y2+60)-(X2+23.Y2+60),12:LINE( 

X2+23,Y2+60)-(X2+25,Y2+17),12:CIRCLE(X2+ 

21,Y2+18),4,12,,2.5:PAINT(X2+21,Y2+18),1 

2 

4275 RETURN 

4280 REHmmmcuATROtmmtm 



4290 PSET ( X2+1 0+0, Y2+15+01 ) : DRAW C« 
4300 PSET(X2+10+O.Y2+5B+O1):DRAH C$ 
4310 PSET(X2+2fe+0. Y2+15+01) :DRAW C$ 
4320 PSET ( X2+26+0, Y2+58+01 ) : DRAW C$ 
4330 RETURN 

4340 REHtmmtciNComtmtm 

4350 PSET ( X2+1 7+0, Y2+35+01 ) : DRAW C* 
4360 GOTO 4280 

4370 REnmttmtSEistttmttm 

4380 PSETÍX2+10+O. Y2+37+01) :DRAW C$ 
4390 PSET ( X2+25+0 , Y2+37+C 1 ) : DRAW C$ 
4400 GOTO 4280 

4410 RENtttmttSIETEttmmtt 

4420 P'SET(X2+18+0, Y2+25+01) :DPAWC$ 
4430 GOTO 4370 

4440 REMtmmusoTAtmtmt 

4450 PSETÍX2+10+O. Y2+10+O1):DRAW C$ 
4460 GOSUB 4560: PEM DIBUJA SOTA 
4470 RETURN 

4480 REMtmmmCABALLOmtm 
4490 PSETíY2+!0*C. Y2+10+O1) :DRAW C$ 
4500 GOSUB 4640: PEM DIBUJA CABALLO 
4510 RETURN 

4520 REMmtmmPEYummm* 

4530 PSET(X2+10+O. Y2+10+O1) :DRAWC$ 
4540 GOSUB 4740: PEM DIBUJA PEY 
4550 RETURN 

4560 PEM SUBRUTINA QUE DIBUJA SOTA 
4570 PSET (X2+16. Y2+26) ,15:COL0R 12:DRAW 
dl0tldl0r!2uí0eii!l013ull7dll3":PAINT'X2* 
20, Y2+33) ,12 

45B0 COLOR 6: PSETÍ X2+20. Y2+19) : PPINTti . 
B" 

45°0 COLOR 4:PSET(X2+17, Y2+51Í :DRAW"r4d 
016e3ul8":PAINT(X2+l < U2+55^.4 
4600 PSET(X2+25. Y2+51) :DRAW"d20r6h3ul714 
-:PAINT(X2+27,Y2+53),4 
4610 COLOR " ? :PSET(X2+14. Y2+28) :DPAW"d20! 
3ulfee6":PAINT(X2+13. Y2+38) ,7 
4620 PSET ! X2+32.Y2+28) : DPAW"d20r3u 16h6 
PAINT(X2+33,Y2+33),7 
4630 PETUPN 

4640 PEM SUBRUTINA QUE DIBUJA CABALLO 
4650 COLOR 6:PSET(X2+23,Y2+15):PRINTtl, ■ 
8' 

4660 COLOR 12: PSET ( X2+23, Y2+24) : DRAW "d20r 
Bu2013dl413ul413":PAINT(X2+25,Y2+40),12 
4670 COLOR 4:PSET(X2+31,Y2+44) :DRA«"g8d7 
15e2u7e5r5":PAINT(X2+26,Y2+46),4 
4680 COLOR 4:PSET(X2+10, Y2+35) :DRAN"d2gl 
d2gld2gld2flrlelrle2u2r2dlrld3rid5h3g7f2 
e5Hrlflr3" 
4690 PSETÍX2+23, Y2+57) :DRAW u r2f Ir 2f 2r ld5 
g2dlg2r3e3elu3elu3elu4hlu2hlllhlllhllP 
4700 PSETÍX2+10. Y2+35) :DRAH"u2f2elf 2rlf 1 
dlfldlflrlflrl" 

4710 PSET(X2+26,Y2+60):DPAW n d4g4r3e6 ■ 
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4720 PSET (X2+13, Y2+55) :DRAWd6r2u6- 
4730 RETURN 

4740 REM SÜBRUTINA QUE DIBUJA REY 

4750 COLOR 6:PSET(X2+20.Y2+25):PRINT*1," 

B" 

4760 COLOR 4:PSET(X2+20,Y2+24!:DRAW"rBü4 
g2h2g2h2d4-:PAINT(X2*21.Y2+23) ,4 
4770 PSET(X2*16,Y2+33),15:C0L0R 7 : DRAW" 
dl0f ldl0r 12ul0elul013u217dll3-:PAINTíX2+ 
1B.Y2+38),? 

4780 PSET(X2*14.Y2+33) : DRAW"g6f 3e3u4" : PA 
INTÍX2+1 1 , Y2+37) , 7 

4790 COLOR 2: PSET ( X2+1 1 . Y2+30) : DPAW" d40 
■ 

4800 PSET(X2+32,Y2+33):DRArndl513iil8": 
PAINTÍX2+33.Y2+35) 

4810 COLOR 4:PSET(X2M7,Y2+56):DRArr4dl 

716e3ul4":PAINT(X2+l ( '.Y2^8) 

4820 PSET(X2+24.Y2*56):DRAN"dl7r6h3ul414 

":PA!NT(X2+26, Y2+58) 

4830 PETUPN 

5000 REH SÜBRUTINA QUE ANALIZA Y HALLA Q 
UIEN GANA UNA MANGA 

5020 IF A2(I)<>3 AND A2(I)<>1 AND A 1 í J >< 

>3 AND AKJXM THEN 5070 

5030 IF B2(I)=B1(J) THEN M2=A2 ( I ) : M1=A1 í 

JlíIF N2<M1 THEN GOSUB 5200 ELSE GOSUB 5 

300 

5040 IF B2(I)=B(36) THEN GOSUB 5200 
5050 IF B1(J)*B(36) THEN GOSUB 5300 
5060 tf B=i THEN GOSUB 5300 ELSE GOSUB 5 
200 

5070 IF B2(I)=B1(J> THEN !12=A2(I) :M1=A1< 
J):IF H2>f1! THEN GOSUB 5200 ELSE GOSUB 5 
300 

5080 IF B2Ü)»8f36) THEN GOSUB 5200 
5090 IF B1(J)=B(36) THEN GOSUB 5300 
5100 IF B=l THEN GOSUB 5300 ELSE GOSUB 5 
200 

5110 REH BORRADO DE CARTAS TIRADAS 
5120 FOR T=l TO1100:NEXT:LINE(155,13)-(2 
00, 180) , 1,BF 

5125 IF Q=35 OR H>0 THEN A2( I)=0:B2(I)=0 

:A1(J)=0:B1(J)=0 

5130 RETURN 

5200 REM SÜBRUTINA DONDE PONE MARCADOR D 
EL JUGADOR 

5210 GOSUB 5500: REH HALLA LOS PUNTOS OBT 
ENIDOS EN UNA TIRADA 

5220 P2=P2*PZ:PSET(217.177):C0LORl :P 
RINTIl.W 

5230 PSET(210,177):COLOR 15:PRINTil,P2 
5240 B=0: RETURN 5110 

5300 REM SÜBRUTINA QUE PONE MARCADOR DEL 
ORDENADOR 

5310 GOSUB 5500: REM HALLA LOS PUNTOS OBT 

ENIDOS EN UNA TIRADA 

5320 P1=P1+PZ:PSET(217,17):C0L0R1 :PPIN 

T!1,W 

5330 PSEX210,17):CQLOP 15 :PRINTI1,P1 
5340 B=l: RETURN 5110 




5500 REM SÜBRUTINA QUE HALLA LOS PUNTOS 
OBTENIDOS EN UNA TIRADA 
5510 PZ=0:PP=0:T=1:A=A1(J):GOTO 5530 
5520 A=A2(I) 

5530 IF A=l THEN PP=11:50T0 5580 

5540 IF A=3 THEN PP=10:GOTO 5580 

5550 IF A=10 THEN PP=2:G0T0 5580 

5560 IF A=ll THEN PP=3:60TO 5580 

5570 if a =12 THEN PP=4 

5580 PZ=PZ*PP:!F t«l THEN T=2: PP=0:GOTO 

5520 

5590 RETURN 

10000 REM SUBRU T INA DE TIRADA DEL JUGADO 
R 

10010 PSET'20.?0):COLOP 14:PRINTI1, "ES T 
L> TURNO" 

10015 IF PLAY(0)=-1 THEN 10015 
10020 A*=INKEY$:IF A$="" THEN 10020 
10030 IF A$="l u OR A$="2 M OR A$= M 3* THEN 
10040 ELSE 10020 

10040 I=VAL!A$):IF A2(I)<>0 AND B2(IX>0 
THEN 10044 ELSE 10020 

10044 COLOR1:PSET'20,90):FOR T=l TO lirf 

RINT|l,CHR$( 21")::NEXT T:PLAY"14o 7 cegec 
■ 

10045 REM BORRA CARTA TIRADA 

10050 IF A$="T THEN LINE(0, 110)-(45. 1"0 
),l,BF:GCTO 10080 

10060 If A$="2" THEN LINEI50, 110XC5. 19 
0),1,BF:GOTO 10080 
10070 LINE(100,110)-(145,190U,BF 
10080 X2=155:Y2=97: I=VAL(A$) :N=A2(I) :P=B 
2(1) ¡GOSUB 4000:REM DIBUJA CARTA TIRADA 
EN COORDENADAS X2,Y2 
100"0 RETURN 

11000 REM SÜBRUTINA DE TIRADA DEL ORDENA 
DOR 

11010 PSET'20, 9 0) : COLOR 14:PRINTf 1, "ES M 
I TURNO" 

11015 FOR T=l TO1000:NEXT 

11020 IF B=0 THEN11170:REM lira si tira 

el Driasrc o segundo 

11030 FOR J=l TO 3 

U0¿0 IF Al <J) >3 AND AKJX10 AND BKJX 

>B(36! THEN 11750 

11050 NEXT 

11060 FOR J=l TO 3 



IF A1(J)>3 AND AKJX.10 THEN 11750 
NEXT 

FOR J=i TO 3 

IF A1(J)>3 AND B1(JX>B(36)THEN 11 
NEXT J 

FOR J=l TO 3 

IF A1(J)>3 THEN 1P50 

NEXT J 

J=!NT(RND(l)t3Xl:IF Ai(J)=0 THEN 



11070 
11080 
11090 
11100 
750 
11110 
11120 
11130 
11140 
11150 
11150 

11160 GOTO 11750 

11170 REM EL ORDENADOR TIRA SEGUNDO 
11180 IF A2HX4 OR A2(I)>9 THEN 11450 
11191 IF B2(I)=B!36) THEN 11370 
11200 FOR J=i TO 3 

11210 IF B2(I!=B1(J) AND (A1(J)=3 OR Al( 

J)=l) THEN 11750 

11220 NEXT 

11230 FOR 3*1 TO 3 

11240 IF B2(I!=B1(J) AND A1!J)>10 THEN 1 
1750 

11250 NEXT 

11260 FOR J=l TO 3 

11270 IF Bl(J)OB(36) AND Bl(J)OB2(I) A 
ND A1(J)>3 AND AKJX10 THEN 11750 
11280 NEXT 
11290 FOR J=l TO 3 

11300 IF B1(J)=B2(I) AND AXJX3 AND Al( 

JXA2(I) THEN 11750 

11310 NEXT 

11320 FOR J=l TO 3 

11330 IF A1(J)>3 THEN 11750 

11340 NEXT 

11350 J=INT(RND(1)I3X1:IF A1(J)=0 THEN 
11350 

11360 SOTO 11750 
11370 FOR J=l TO 3 

11380 IF A1(J)>3 AND AKJX10 AND BKJX 

>B(36) THEN 11750 

11390 NEXT 

11400 FOR J=l TO 3 

11410 IF A(J)>3 THEN 11750 

11420 NEXT 

11430 J=INT(RND(l)t3Xl:IF A1(J)=0 THEN 
11430 

11440 GOTO 11750 

11450 IF B2(IX>B(36) THEN 11620 
11460 FOR J=l TO 3 

11470 IF A2(I)=3 AND A1(J)=1 AND B1(J)=B 
(36) THEN 11750 

11480 IF A2(I5 = 1 AND A1(J!>3 AND AKJXl 
0 THEN 11750 

11490 IF A2(I)=12 AND B1(J)=B(36) AND (Al 
(J)=l OR Al ÍJ)=3)THEN 11 7 50 
11500 IF A2(I)=11 AND B1(J)=B(36) AND !A 
1(J)=1 OR A1(J)=3 OR A1(J)=12) THEN «75 
0 

11510 IF A2(I) = 10 AND BXJ)=B(36) AND (A 
1!J)=1 CR A1(J)=3 OR A1(J)=12) THEN 1175 
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Programa 



na k nio»r p». i . i )<"ct" or 




C(OSCf"ID«(P«. 



NEXT 

FG R J=! TO 3 

IF A1(J)>3 AND Al (J) '10 THEN 11750 
NEXT 

FOR J=l TO 3 

IF A1!J)>3 THEN 11750 

NEXT 

J*!NT(RNDU)t3)+l:IF A1(J)=0 THEN 



11520 
11530 
11540 
11550 
11560 
11571 
11580 
115"? 
11590 

11600 GOTO 11750 
11620 FOR J=l TO 3 

11630 IF A2(I) = 1 AND BlU)-B(3é) THEN 11 
751 

11640 IF A2(I)>1 AND A1(J)=1 AND B2!I)=B 
1(J) THEN 11751 

11650 IF A2fl))3 AND A1CJK4 AND B2(I)=B 
I(J) THEN 11750 

11660 IF A2(I)=12 AND AKJX4 AND B2(l) = 
BKJ) THEN 11750 

11670 IF A2(I)=11 AND A1(J)=12 AND B2U) 




=B1(J) THEN 11750 

11680 IF A2(I)=10 AND(A1(J)=12 OR A1(J)= 
11) AND B2(I)=B1(J) THEN11750 



11690 NEXT 

11700 FOR J=l TO 3 

11710 IF B1(J)=B(36) THEN 11750 

11720 NEXT 

11730 J=INT(RND(l)t3)+l:IF A1(J)=0 THEN 
11730 

11750 IF Al(J)=0 THEN J=INT(RNDf 1) 13) +1: 
BOTO 11750 

11755 COLOR 1:PSET(20.90):PR1NT*1,"|||II 
■■nUr:PLAY"14olcegec N 

11760 IF J=l THEN LINE!0,0)-(45,80) , 1,BF 
:60T0 11800 

11770 IF J=2 THEN LINE(50,0)-(95.80),1,B 
F:60T0 11800 

11780 LINE(100,0)-(145,B0),1,BF 

11790 REH DIBUJA CARTA TIRADA POR EL ORD 

ENADOR 

11800 N=AHJ):P=B1(J):X2=155:Y2=13:G0SUB 



11810 RETURN 



Test de listado 



ibriscai 



TEST DE LISTADOS. Para usar el Test de Listado que publicamos al final de cada programa debe cargarse el programa 
correspondiente publicado en nuestro número 7 del mes de noviembre, pág. 28. 



If 


- 0 


340 


-112 


1520 


- 34 


3000 


- 0 


4210 


-235 


4490 


-120 


4770 


-117 


5320 


- 23 


11015 


-116 


11290 


-186 


11570 


-149 


20 


-136 


350 


-203 


1530 


-151 


3005 


- 47 


4220 


-122 


4500 


-231 


4780 


- 53 


5330 


- 2 


11020 


-188 


11300 


-150 


11580 


-131 


30 


-244 


360 


-200 


1540 


- 48 


3010 


- 68 


4240 


-214 


4510 


-142 


4790 


-139 


5340 


- 34 


11030 


-186 


11310 


-131 


11590 


- 47 


40 


-124 


370 


- 79 


1550 


-250 


3020 


-118 


4250 


- 67 


4520 


- 0 


4800 


- 96 


5500 


- 0 


11040 


- 73 


11320 


-186 


11600 


-170 


50 


-160 


380 


- 63 


1560 


- 46 


3030 


- 29 


4260 


- 31 


4530 


-120 


4810 


- 67 


5510 


- 10 


11050 


-131 


11330 


-149 


11620 


-186 


70 


-192 


390 


- 20 


1570 


- 51 


3500 


-132 


4270 


- 61 


4540 


-107 


4820 


- 72 


5520 


- 61 


11060 


-186 


11340 


-131 


11630 


- 77 


80 


-182 


393 


-140 


1580 


-215 


3510 


-160 


4275 


-142 


4550 


-142 


4830 


-142 


5530 


- 2 


11070 


-161 


11350 


- 62 


11640 


-152 


90 


-201 


400 


- 76 


1590 


-239 


4000 


- 0 


4280 


- 0 


4560 


- 0 


5000 


- 0 


5540 


- 3 


11080 


-131 


11360 


-170 


11650 


-158 


100 


- 0 


405 


-155 


1600 


- 69 


4010 


- 64 


4290 


-125 


4570 


-115 


5020 


- 46 


5550 


- 2 


11090 


-186 


11370 


-186 


11660 


-166 


110 


- 69 


410 


- 32 


1610 


-238 


4020 


-242 


4300 


-168 


4580 


- 60 


5030 


-104 


5560 


- 4 


11100 


- 61 


11380 


- 73 


11670 


-170 


120 


-110 


420 


- 58 


1620 


-227 


4030 


- 49 


4310 


-141 


4590 


-122 


5040 


- 39 


5570 


- 84 


11110 


-205 


11390 


-131 


11680 


- 7 


130 


-172 


430 


-201 


1630 


- 99 


4040 


-144 


4320 


-184 


4600 


-126 


5050 


-139 


5580 


-110 


11120 


-186 


11400 


-186 


11690 


-131 


140 


-193 


440 


- 50 


1640 


-189 


4050 


- 47 


4330 


-142 


4610 


-167 


5060 


-229 


5590 


-142 


11130 


-149 


11410 


-100 


11700 


-186 


150 


: 66 


1000 


- 0 


1650 


-165 


4060 


-203 


4340 


- 0 


4620 


-162 


5070 


-102 


10000 


- 0 


11140 


-205 


11420 


-131 


11710 


- 73 


170 


-141 


1010 


-101 


1660 


- I 


4070 


- 0 


4350 


-152 


4630 


-142 


5080 


- 39 


10010 


- 40 


11150 


-117 


11430 


-142 


11720 


-131 


180 


- 9 


1020 


-150 


1670 


- 82 


4080 


- 10 


4360 


- 95 


4640 


- 0 


5090 


-139 


10015 


-207 


11160 


-170 


11440 


-170 


11730 


-187 


190 


- 3 


1025 


- 94 


1680 


-219 


4090 


- 0 


4370 


- 0 


4650 


- 59 


5100 


-229 


10020 


-208 


11170 


- 0 


11450 


-182 


11750 


- 88 


200 


-112 


1050 


- 31 


1685 


- 15 


4101 


-105 


4380 


-147 


4660 


-171 


5110 


- 0 


10030 


- 82 


11180 


-119 


11460 


-186 


11755 


-217 


210 


-212 


1055 


- 84 


1690 


- 67 


4110 


-110 


4390 


-162 


4670 


- 90 


5120 


- 0 


10040 


-180 


11190 


-204 


11470 


- 83 


11760 


- 17 


220 


-236 


1056 


-116 


1700 


-142 


4120 


- 83 


4400 


- 95 


4680 


- 42 


5125 


-249 


10044 


-156 


11200 


-186 


11480 


-165 


11779 


-116 


230 


- 78 


1057 


-152 


2000 


- 0 


4130 


-180 


4410 


- 0 


4690 


- 52 


5130 


-142 


10045 


- 0 


11210 


-237 


11490 


-178 


11700 


- 16 


240 


-120 


1070 


- 48 


2005 


- 47 


4140 


-142 


4420 


-143 


4700 


-153 


5200 


- 0 


10050 


-170 


11220 


-131 


11500 


-191 


11790 


- 0 


250 


-162 


1080 


- 35 


2010 


-235 


4150 


- 0 


4430 


-186 


4710 


- 89 


5210 


-102 


10060 


- 13 


11230 


-186 


11510 


-190 


11800 


-130 


260 


-112 


1090 


-203 


2020 


- 29 


4160 


-210 


4440 


- 0 


4720 


-189 


5220 


-185 


10070 


-234 


11240 


-155 


11520 


-131 


11810 


-142 


300 


-212 


1100 


-142 


2030 


-175 


4170 


-178 


4450 


-120 


4730 


-142 


5230 


-163 


10080 


-203 


11250 


-131 


11530 


-186 






310 


-183 


1500 


- 0 


2500 


- 51 


4180 


-103 


4460 


-182 


4740 


- 0 


5240 


- 33 


10090 


-142 


11260 


-186 


11540 


-161 






320 


-150 


1510 


-188 


2510 


-110 


4190 


-214 


4470 


-142 


4750 


- 66 


5300 


- 0 


11000 


- 0 


11270 


- 57 


11550 


-131 


TOTAL: 


330 


- 3 


1515 


-217 


2520 


-142 


4200 


- 61 


4480 


- 0 


4760 


- 17 


5310 


-102 


11010 


- 21 


11280 


-131 


11560 


-186 


34604 
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AQUI HALLARAS TODO 
EL SOFTWARE DEL 
ERCADO EN MSX. 
OTE LO PIERDAS, 
rogramas de juegos 
tilidad, educativos 
estión. Una guía 
ompleta con más 
e 100 títulos, 
assettes, cartuchos, 
iskettes, tarjetas y 
bros. 

demás todas las 
mpresas de hardware y 
software con sus 
direcciones y teléfo 
número 
rescindible pa 
süario MSX. 
ESTA EN TU 
OSCO 
CLUB ESPECI 
OFTWARE algo F 
E SERIE. 



CARTUCHOS 



JAS* 





MSX por dentro 



,Por Willy Miragall, 



MSX BASIC 
PLUS (I) 



¿Quién no querría tener en su 
MSX la posibilidad de trabajar 
con 35 pantallas, entre gráficas y 
texto, de poderlas intercambiar 
instantáneamente, almacenarlas, 
etc? ¿Pura utopía? Dentro de 
muy poco lo sabréis. 



— 



— 



Los ordenadores MSX nos sor- 
prendieron a todos por la poten- 
cia de su lenguaje BASIC, que 
permite el manejo de cuatro diferentes 
pantallas, un potente chip de sonido, y 
que no deja de ser, por estas caracterís- 
ticas uno de los lenguajes punteros en 
ordenadores domésticos. 

Esta potencia de lenguaje, unida a su 
principal característica, la compatibili- 
dad, ha sostenido el imparable auge del 
estándard. 

Hasta hace muy poco, hablar de 
ordenadores compatibles era hablar de 
sistemas herméticos, que no permitían 
modificaciones que rompieran el es- 
tándard. No ocurre así en el MSX, que 
es un sistema abierto a todo tipo de 
innovaciones, tanto en soft como en 
hard, tómense como ejemplo, el Pio- 
neer PX-7, con su revolucionaria uni- 
dad de superimposición de video, así 
como el Yamaha CX 5M, con su po- 
tentísimo chip de sonido. ¿Cómo es 
posible que máquinas tan avanzadas 
sean compatibles con nuestro MSX? 

Los ordenadores MSX permiten al 
ordenador ampliar su abanico de ins- 
trucciones. Sí, sí, lo que oís, añadirle 
instrucciones al BASIC. Esto, en prin- 
cipio, sólo es posible con cartuchos de 
ROM que contengan el código ensam- 
blado de los comandos con que amplia- 
mos al BASIC (el programa en código 
máquina de las nuevas instrucciones, 
para que nos entendamos), por lo que 
únicamente empresas importantes, lo 
suficiente como para adquirir un gra- 
bador de ROMs y la cadena de montaje 
para montar los cartuchos, pueden per- 
mitirse este lujo. Resultado; la amplia- 
ción del BASIC resulta por lo general 
cara y de poca difusión. Cabe decir que 
en España ya se comercializan cartu- 
chos con dichas ampliaciones. 

Pero nuestro objetivo radica en hacer 
asequibles estas ampliaciones, de modo 
que no se vieron monopolizadas por 
los fabricantes de cartuchos. Y he aquí 
la idea: ¿por qué no engañamos al 
ordenador? 

En los ordenadores con más de 48 




kB (la mayoría de los MSX) existe una 
zona de memoria destinada al sistema 
operativo de disco que en ningún caso 
es utilizada conjuntamente con el BA- 
SIC. Por lo tanto disponemos de una 
zona de memoria libre no utilizada por 
el BASIC. Intentaremos hacer creer a la 
máquina que esta zona de memoria es 
una extensión externa, es decir, un car- 
tucho de ROM. Para ello introducimos 
en varios puntos precisos los códigos 
determinados que hacen creer al orde- 
nador que está trabajando con un car- 
tucho de ROM. 

Ya no queda más que empezar a pro- 
gramar los nuevos comandos. 

MODO DE TRABAJO 

Este es el proceso seguido para desa- 
rrollar el programa que ahora os pre- 



sentamos: su nombre, MSX BASIC 
PLUS. Se trata de un conjunto de ruti- 
nas que reubican todas las tablas de la 
VRAM (ram de video) de forma que 
podamos instalar un mayor número de 
pantallas e intercambiarlas muy rápida- 
mente. 

Así conseguimos las siguientes pan- 
tallas en cada modo: 

• SCREEN 0: En este modo 
contamos con 14 pantallas indepen- 
dientes en lugar de una sola como sería 
normal. 

• SCREEN 1: En este modo con- 
tamos con 1 1 pantallas. 

• SCREEN 2: En este modo con- 
tamos con una pantalla gráfica, lo habi- 
tual en los MSX; pero hemos añadido 
una pantalla de texto con 40 columnas. 

• SCREEN 3: Aquí son 8 las pan- 
tallas generadas. 
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Vamos a empezar a tratar con un po- 
co más de profundidad, cómo funcio- 
nan los nuevos comandos del BASIC 
en cada modo de pantalla. 

Los comandos incorporados al BA- 
SIC son dos: 
-USO(x) y -VEO(x) 

SCREEN 0: 

El comando -VEO(x), (donde x es 
un número entre 0 y 13) nos permite 
ver cualquiera de las 14 pantallas dispo- 
nibles en este modo. Por ejemplo, si 
hacemos -VEO(7) aparecerá en la pan- 
talla un conjunto de símbolos extraños; 
pero por más que lo intentemos no 
conseguiremos escribir nada en la pan- 
talla. ¿Qué ocurre? Nada más simple, 
estamos viendo la pantalla 7; pero to- 
davía usamos la pantalla 0. Prueba aho- 
ra a escribir, aunque no lo veas en la 
pantalla, -VEO(0) y a pulsar RE- 
TURN. Aparecerá ante tus ojos todo 
lo que hayas tecleado mientras veias la 
pantalla 7. 

Prueba ahora a hacer: 

-VEO(7): -USO(7) (RETURN) 

ahora sí puedes borrar la pantalla o 
utilizarla a tu antojo, y lo mismo con 
las otras 13 restantes. Si quieres borrar 
todas las pantallas tendrás que hacer: 
FOR X=0 TO 13: -USO(X) : CLS: 
NEXT X: -USO(0) 

Ya sabes como utilizar estas panta- 
llas. La tremenda velocidad de cambio 
de pantalla (el cambio es totalmente 
instantáneo ya que sólo se modifica un 
byte de RAM y uno de los registros del 
chip de pantalla) te permitirá lograr 
efectos espectaculares, o bien, escribir 
en una pantalla mientras el usuario está 
leyendo otra, consiguiendo así saltosde 
página instantáneos. 

SCREEN 1: 

Los comandos -USO(x) y -VEO(x) 
funcionan en SCREEN 1 de forma 
idéntica a como ocurre en SCREEN 0, 
con la salvedad de que en este modo 
sólo podemos trabajar con 1 1 pantallas 
(x oscilará entre 0 y 10, por lo tanto). 

A los efectos logrados en SCREEN 0 
podéis añadir los conseguidos mediante 
la definición de caracteres en color, ex- 
clusiva del SCREEN 1 (recordad que la 
mayoría de los juegos comerciales utili- 
zan esta pantalla y no la pantalla gráfi- 
ca; SCREEN 2). 

SCREEN 2: 

El tremendo volumen que ocupa una 
pantalla de gráficos, 12 Kb si no utili- 
zamos los sprites, nos impedía generar 
dos pantallas de gráficos. El precio en 
memoria de incluir otra pantalla era de- 
masiado alto (reducir los 28 Kb de 
usuario a tan 



Kb), por lo que 
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T N P: Tabla de los números de los patrones. 
T G P: Tabla generadora de los patrones. 
N U: Zona no utilizada. 

Tabla 1: Distribución de la VRAM normal y en MSX BASIC PLUS. 



optamos por añadir al SCREEN 2 una 
pantalla de texto (que sólo ocupa 0.96 
Kb). 

El cambio funciona de modo similar 
a los otros SCREEN. El comando 
-VEO(0) nos permitirá ver la pantalla 
de gráficos y -USO(0) trabajar sobre 
ella. Recordad que mientras estemos en 
modo gráficos no podemos utilizar co- 
mandos como PRINT, INPUT o LO- 
CATE. 

Pero al utilizar -VEO(l) aparece 
ante nosotros la pantalla de texto. Po- 
demos seguir utilizando las sentencias 
gráficas: LINE, PSET, CIRCLE, 
DRAW, etc. aunque no veamos por el 
momento los resultados. Al hacer 
-VEO(0) veremos instantáneamente 
todos los gráficos generados mientras 
veíamos la pantalla de texto. 

Es importante que notéis que al usar 
la pantalla uno, con -USO(l), quedan 
activados de nuevo los comandos de 
texto: LOCATE, PRINT, INPUT, 
etc. y desactivados los de gráficos, por 
lo que aparecerá un "Illegal function 



cali" si intentáis utilizarlos mientras es- 
tamos usando la pantalla 1. 

Os incluimos un efecto interesante 
para que podáis comprobar la veloci- 
dad de cambio de las pantallas, consis- 
tente en la visualización simultánea de 
la pantalla de gráficos y la de textos en 
SCREEN 2. Teclead el siguiente pro- 
grama tras haber introducido la am- 
pliación del BASIC. 
10 SCREEN 2 

20 LINE (0,0)-(255,191),15 
30 CIRCLE (128,96),40,7,„4/3 
40 PAINT STEP(0,0),7 
50 USO(l) 
60 CLS 

70 LOCATE 10,0:? "UN TEXTO 
EN SCREEN 2" 
80 X=0:Y = 1 

90 ON INERVAL=1 GOSUB 200 
100 INTERVAL ON:GOTO 100 
200 -VEO(X):SWAP X, Y: RE- 
TURN 

Funcionará igualmente si ambas 
pantallas están llenas. Comprobadlo 
vosotros. 



MSX por dentro 

Dependiendo de la persistencia de 
vuestro monitor o televisor observaréis 
que los textos y gráficos vibran ligera- 
mente. Esto podría solucionarse si 
cambiásemos más veces por segundo de 
pantalla (en este programa lo hacemos 
50 veces cada segundo); pero en ese ca- 
so, al no coincidir la frecuencia de cam- 
bio con la de barrido de la pantalla 
(también 50 veces por segundo) apare- 
cerían líneas horizontales en la pantalla. 
Haced la prueba. Esas líneas desapare- 
cerán siempre que ambas frecuencias 
sean múltiplos una de la otra. 

SCREEN 3: 

En este modo sólo contamos con 8 
pantallas; pero a esto sumamos otro 
pequeño invonveniente, y es que los 
comandos -USO(x) y -VEO(x) no son 
independientes, como ocurría en los 
otros modos. 

Aquí ambos comandos tienen el mis- 
mo significado, es decir, si hacemos 
-VEO(3) automáticamente trabajare- 
mos en la pantalla 3, y si hacemos 
-USO(6) pasaremos a ver la pantalla 6, 
aunque no entremos el comando 
-VEO(6). 

La razón de esta limitación viene 
ampliamente explicada en la segunda 
parte de este artículo, consistente en 
una explicación un poco más técnica 
del funcionamiento de estas instruccio- 
nes, sus repercusiones en la VRAM y 
en la RAM de usuario. 
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T N P: Tabla de los números de los patrones. (768 bytes) 
T G P: Tabla generadora de los patrones. (2 Kb) 
T G S: Tabla generadora de los sprites. (2 Kb) 
TAS: Tabla de atributos de los sprites. (1 Kb) 
T C: Tablas de colores. (32 bytes) 

Las zonas no utilizadas han sido sombreadas. 

La tabla de color en el BASIC PLUS se encuentra entre la TNP 0 y la 
1, en la dirección 5888 (hex: £1700). 

Tabla 2: Distribución de la VRAM normal y PLUS en SCREEN 1. 
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JUEGA COMO UN CAMPEON 

METE EL GOL QUE TE HARA MILLONARIO 




El programa imprescindible para la liga más larga 
de la historia española 

QUINIELAS te ofrece: 

introducir 38 equipos - introducir el partido de la jornada - almacenar los resultados, los goles 
locales y los goles visitantes - estadística gráfica de aciertos - realizar 25 boletos de 8 apuestas 
(200), por reducción o al azar - sacar los boletos por impresora - clasificación detallada - 
estadística gráfica de equipos - estadística gráfica de quinielas - grabación de datos en cinta - 
escrutinio de boletos memorizados - consultas y correcciones - etc., etc. 



CURSO DE INGLES 



The Gruneberg Linkword Language System es un sistema, para enseñanza de idiomas, más rápido y 
fácil que los métodos convencionales aplicados actualmente. 

En poco tiempo, máximo 20 horas, te enseñará un vocabulario de 400 palabras y adquirirás unas buenas 
nociones de gramática. Esto te permitirá entender y ser entendido en tus viajes a lugares de habla inglesa 
o en tus contactos con personas que se expresen en ese idioma. 

Por otra parte, el Sistema PlusData, consigue que el ordenador se convierta en un perfecto profesor que 
te explicará, orientará y corregirá, manteniendo en todo momento un "diálogo" interactivo de resulta- 
dos sorprende - 
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THE GRUNEBERG LINKWORD 
LANGUAGE SYSTEM 



plu/d@t@ 




I Tavlor. "POPULAR 
COMPUTER WORLD" : 



-"PERSONAL COMPUTER 
WORLD": 

"Un suceso fuera de serie..." 



cho?ce-Í' " comp uter 

Weresame... » el más 



plu/dato 

Programas de EAO para EGB. 




Nombre 



I 



Apellidos 

Dirección 

Población 

D.P 

Forma de pago: 



Reembolso \_ 



.Tino 

Giro postal □ 



>. ......... ............. 

Envío talón □ 



□ Curso de Inglés %f parte. 10 lecciones Linkword. (Cinta) P.V.P. 6.900.-Ptas. 

□ Curso de Inglés 1. a parte. 10 lecciones Linkword. (3,5"-Disk) P.V.P. 7.900.-Ptas 

ENVIAR ESTE CUPON A: PLUS DATA, S.A. C/. GRAN VIA, 661 pral. 08010-Barcelona. Tel. 246 02 02 
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FORBIDDEN FRUIT 



Nuevo título de acción de 
MINDS GAMES 



Eres un tranquilo granjero de 
Transylvania, que por una serie 
de azares te ves obligado a visi- 
tar las ruinas de un castillo abandona- 
do, del cual nunca ha vuelto nadie. Vas 
armado, pero los peligros son muchos. 
Mind Games España inicia con la pu- 
blicación de este apasionante juego la 
presentación de su nuevo catálogo de 
software para MSX que incluirá más de 
40 títulos. 

A la vista de lo absolutamente cautiva- 
dor que es este juego, estamos seguros 
que va a tener una gran acogida (sobre 
todo en Navidades) esta serie de 
MIND GAMES. 
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LANZAMIENTO DE PHILIPS DE 
SOFTWARE PARA 
COLECTIVOS 

Programa de Gestión 
Odontológica para MSX2 

Además de los paquetes de ges- 
tión que ha presentado PHI- 
LIPS dentro de su línea para la 
segunda generación, pensado priorita- 
riamente para pequeñas y medianas 
empresas, PHILIPS ha hecho una 
incursión en los llamados «mercados 
verticales», entre los cuales esperan una 
buena acogida de los MSX2 sobre todo 
debido a la excelente relación calidad- 
precio, difícilmente alcanzable por 
otros sistemas que trabajan en 16 Bits. 
La primera aplicación ha sido este pro- 
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grama de gestión odontológica, que 
puede llevar perfectamente la consulta 
media de un odontólogo: soporta del 
orden de 2000 pacientes con 90 inter- 
venciones por paciente por cada dis- 
kette. 

Realiza no sólo la gestión de Agenda e 
intervenciones de pacientes, sino tam- 
bién la derivada de facturación, presu- 
puestos y el control de stocks derivado 
de los productos farmacéuticos. ¿Es 
usted dentista? 



MUSIC-M0DULE 



El Interfaz Musical de 
PHILIPS 



c 



ualquiera puede ya componer o 
interpretar música con el inter- 
faz musical de PHILIPS. Sólo 



con pulsar cualquier tecla de la fila 
indicada en el ordenador, cualquiera 
puede interpretar un tema con una pis- 
ta de acompañamiento que siempre so- 
nará agradable, puesto que el sintetiza- 
dor FM del sistema analiza la pulsación 
en relación con las anteriores y lo 
armoniza instantáneamente. 
También va equipada esta unidad ade- 
más del Sintetizador FM con conexio- 
nes MIDI (IN, OUT y THRU) y de un 
dispositivo de muestreo de sonido, que 
permite digitalizar sonido proveniente 
de fuentes externas (micro incorporado 
o toma audio) y combinarlo con pistas 
de apoyo, modularlo, ponerle Eco y 
todo tipo de efectos especiales. Opcio- 
nalmente, PHILIPS también suminis- 
tra un teclado que — conectado al MU- 
SIC-MODULE— convierte tu MSX 
en un teclado polifónico de hasta 9 no- 
tas simultáneas. 

El manejo de las pantallas se realiza 
mediante iconos, lo cual unido a sus 



K0NAMI PRESENTA DOS NUEVOS CARTUCHOS 



Títulos de impacto 



Se trata de Green Beret y Jail 
Break, realmente los títulos son 
de impacto, puesto que el primero 
va de boinas verdes y el segundo de la 
fuga de una prisión. 
Esta incursión en programas de acción, 
representa una nueva victoria de Kona- 
mi, que está — ahora más que nunca — 



a la vanguardia del software de entrete- 
nimiento. Como siempre, estos pro- 
gramas son suministrados en formato 
ere cartucho para efectuar una carta ins- 
tantánea y prometen acción para rato. 
Para aquellos que aman sobre todo la 
acción y las emociones fuertes van re- 
comendados especialmente estos dos 
nuevos títulos, que estamos seguros de 
que colmarán absolutamente sus 
expectativas. 







menús de fácil uso lo hacen accesible a 
cualquier profano (tanto en música co- 
mo en programación). Su precio ronda 
las 15.000 pesetas. 



AEROBIOS 



La aventura gráfica de 
Idealogic 

En esta misma sección, el mes pa- 
sado comentábamos la presenta- 
ción del software para MSX2 
desarrollado por la firma Idealogic para 
PHILIPS, y hablábamos de un progra- 
ma titulado AEROBICS, que — como 
podemos deducir — es un curso com- 
pleto de Aerobic que se da con un 
completo manual de ejercicios, mien- 
tras se observa una muñeca en la panta- 
lla que ra realizándolos en la pantalla al 
compás de la música. 
De por sí, este programa puede hacer 
las delicias de las amas de casa que po- 
sean un MSX2, puesto que pueden re- 
petir los ejercicios uno a uno, ir hacia 
adelante o hacia atrás e incluso progra- 
mar la velocidad de los mismos. Ha- 
ciendo otro tipo de consideraciones, 
podemos decir que el programa hace 
resaltar la inmensa capacidad gráfica de 
los MSX2, ya que las secuencias de ani- 
mación de la figura realizan una simu- 
lación prácticamente perfecta del movi- 
miento. Recomendable para todos. 



SONY HB-F9S 



Un MSX2 DOMESTICO 

Al caer el Otoño empiezan a co- 
mercializarse las novedades 
expuestas por los fabricantes de 
la norma MSX que fueron presentadas 
en SONIMAG. 

SONY España lanza al mercado el 
ordenador HB-F9S, concebido como 
un MSX2 doméstico. Se trata de un 
aparato especialmente indicado para 
aquellos que ya dominan el BASIC y 
pretenden ahondar más en el apasio- 
nante campo de la Informática. Su con- 
cepción doméstica incluye accesorios 
tan evidentes como la salida RF con la 
que va equipado, que permite la cone- 
xión del ordenador al televisor domés- 
tico. 

Este aparato cumple los requisitos 
máximos de memoria previstos para la 
segunda generación de MSX, es decir: 
128 Kb de memoria RAM de 
usuario, 128 Kb de VRAM, 
96 Kb de ROM. 



Además, incluye un programa de apli- 
cación personal incorporado en ROM: 
Listín telefónico, Agenda personal, Re- 
loj, Calendario, Calculadora... 

JS-70 - 

EL JOYSTICK 
PROFESIONAL DE SONY 

Siguiendo con las novedades pre- 
sentadas por SONY para este 
Otoño del 86, cabe destacar el 
joystick JS-70, desarrollado para cum- 
plir con las cada vez más sofisticadas 
exigencias del software MSX, que cada 
vez necesita herramientas de mayor 
precisión. 

Este joystick, de alta velocidad de res- 
puesta, incluye 2 pulsadores de disparo 
en cada uno de los lados de la palanca 

Í>ara facilitar la operación; todo lo cual 
o hace recomendable tanto para dies- 
tros como para zurdos. Tiene 8 direc- 
ciones de movimiento, lo que resulta 
ideal para aplicaciones de preci- 
sión donde se requiere un 
movimiento punto 
por punto y una 
gran rapidez 
de res- 
puesta. 




Programa 



Por Enrique Roldán¡ 



CRAF-1 



Estupendo programa de gráficos en el 
que su autor reproduce una de nues- 
tras portadas con bastante fidelidad. 
Tras 15" ha de pulsarse la barra espa- 
dadora para que aparezca el dibujo. 



10 COLOR 15,1,1 
20 C=15 

30 0PEN'GRP:"AS1 

40 DEFUSR1=65:DEFUSR2=68 

50 CLS 

60 SCREEN 2 

70 PSET<0,0) 

80 A=USR1(0) 

90 FOP 1=1 TO 800:PRINTIl,"r¡:NEXT I 
100 A=USR2(0) 

110 IF INKEYtO' " THEN 110 

120 LINE(100.1)-(170,191),5,BF 

130 DRAiTC15BI1100.39M119,47Mi62,63M70,ó 

7H170,81l1160,78M112,65fll00,58M100,39":PA 

INT(U0,47),15 

140 DRAW "C15BH100,60H112,67H112.79N100, 

79t1100,60":PAINT(105,67),15 

150 DRAH'C4BM160, 78H170, 81H170, 145M166, 1 

B9H102,189m03,104H130,63H160.78 n :FAINT( 

165, 85), 4 

160 LINEa00,0)-(170,191),15,B 

170 DRAH-C1BM130, 12M134, 1R26M165, 27M163, 

38M162,66H159,82H156,101M155,101M156,81I1 

152,7111154,5711152, 13M132,8H118,42BM132,B 

f1130,12':PAINT(146,6U:DRAW"C15Bt1162,56 

M160,55U3H160,53M162,38R2" 

180 DRAWC14BM132.8M152, 1311154,5711152,71 

H138,67H138,72H129,6?H130,63H119,60M118, 

42f1132,8":PAINT(138,27),14 

190 DRAWC1BI1139, 4811141, 52M144.47M152. 55 

H144,51N141.55H139,48BH119,47H128,41M130 

,47H133,44H130,51N127.44M119,47" 

200 LINE(154,68)-(159,20),1,BF 

210 DRAWC1BM133, 4711135. 43M130,63M132, 61 

H138,63D2H130,63M129,69M138,72N138,65M14 




290 LINE(131,62)-(138,72),14,BF 

300 DRAN " C6BH 1 24,88111 45, 95H 146, 100M118.9 

0M124,89":PAINT(143,97),6 

310 CIRCLE(116,83),6,14 M ,1.8 

320 PAINT(H6,83),14 

330 DPAWC15BH100, 126M170, 13311170, 145N10 

0, 136M100, 126":PAINT( 110, 130) , 15 

340 DPAH B C7BH114, 104M118, 111H142, 122H154 

,106H162,108M160,150H112,145H114,104":PA 

INT(120.138),7 

350 DRA«"C4BH126, 115H142, 122H154, 106H143 
. 136H140, 135H136, 144H130, 132H126, 115 M :PA 
INT (136,132),! 

360 DRAN'C5BH112,158f1159, 164M159,174Hlll 

, 17111112, 158 n :PAINT(115, 162), 5 

370 DRAW'C13BH110,95HÍ51,111H142,122M118 

,111M110,95":PAINT(132,108),13 

380 GOTO 380 



0,56" 

220 CIRCLE(126,53),5,1,,,1.4 

230 CIRCLE(146,60),5,1,,,1.4 

240 CIRCLE(126,53),4,15,,,1.4:PAINT(126, 

53),15:LINE(126,51)-(126,52),1 

250 CIRCLE(146,60),4,15,,,1.4:PAINT(146, 

60),15:LINE(146.58)-(146,59),1 

260 DRAH"ClBH123,44Hlt9,43l1119,60H130,63 

BM138,67M143,68M139,60M138,67M152,70" 

270 DRAH"ClBH134,78H148,88m46,98H155,10 

1M151 , 11 1M110, 95M110, B7M118, 90MU6, 76M12 

4,78M134,78":PAINT(134,S4),1 

280 DRAW"C13BH119,55H112,66M110,87M118,9 

0H118,78H134,78H148,88H146,9BH155.101I115 

8,81fll52,71H138,67H138,72H129,69H130,63H 

119,60M119,55":PAINT(li8,69),13 



Test de listado^^MH 


10 - 87 


140 -200 


270 


- 36 


20 - 80 


150 - 43 


280 


- 13 


30 -220 


160 - 94 


290 


-103 


40 -200 


170 -156 


300 


-144 


50 -159 


180 - 86 


310 


-164 


60 -216 


190 -178 


320 


-106 


70 - 97 


200 - 90 


330 


-248 


80 -129 


210 - 2 


340 


-205 


90 - 64 


220 -128 


350 


-222 


100 -130 


230 -155 


360 


- 9 


110 -239 


240 -139 


370 


-151 


120 -157 


250 -166 


380 


- 20 


130 -180 


260 - 83 


TOTAL: 


4899 



ENTRA EN LA AVENTURA 
CORRE A TODA PASTILLA 
CON 





1. "-Podrán participar todos nuestros lectores 
cualquiera sea su edad. 

2. "-Los programas se clasificarán en tres cate- 
gorías : 

Educativos 
Gestión 

Entretenimiento 

3. "-Los programas deberán ser remitidos gra- 
bados en cassette debidamente protegidas, dentro 
de su estuche de plástico. 

4. "-No entrarán en concurso aquellos progra- 
mas que ya hayan sido publicados por otros me- 
dios o plagiados. 

5. °-Junto a los programas se incluirán las ins- 
trucciones correspondientes, detalle de las varia- 
bles, ampliaciones posibles y todos aquellos co- 
mentarios que el autor considere de interés. 

6. "-Todos los programas han de estar estructu- 
rados de modo claro, separando con REM los 
distintos sectores del mismo. 



PREMIOS 

7.--MSX CLUB OTORGARA LOS SI- 
GUIENTES PREMIOS: . 

JOYSTICK DE ORO MSX CLUB Y UNA 
UNIDAD DE DISCO AL MEJOR PROGRA- 
MA DEL AÑO. 

Además mensualmentc se premiarán los pro- 
gramas publicados del siguiente modo: 

10.000 pts. los programas Educativos 

10.000 pts. los programas de Gestión 
6.000 pts. los programas de Eíntrctenimicnto 



FALLO Y JURADO 

8. *-EI Departamento de Programación de MSX 
CLUB DE PROGRAMAS hará la primera selec- 
ción de la que saldrán los programas publicados 
en cada número de la revista. 

9. "-Los programas no se devolverán salvo que 
así lo requiera el autor. 

10. "-La elección del PROGRAMA DEL ANO se 
hará por votación de nuestros lectores a través de 
un boletín que se publicará en el mes de octubre 
de 1987. 

11. °-EI plazo de entrega de los programas finali- 
zará el 31 de octubre de 1987. 

12. "— El fallo se hará conocer en el número de di- 
ciembre de 1987, entregándose los premios en el 
mismo mes. 









iLscEPRGXfírsKl - MI PROGRAMA 

toca i Batlle, 10-12, bajos 08023 Barcelona 
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Programa 



iPor Tomeu Fontcubertai 



LA GRUA 



Divertido juego de habilidad, cuya 
música fue compuesta por Miguel 
Angel Muñiz, en el que tienes que 
transportar una serie de herramien- 
tas con una grúa a un camión, pero 
los pájaros te lo impiden 



10 Mttiíitmmmtut 



2f t 

30 'I 



LA GRUA 



40 ' t TOMEU FONTCUBERTA * 
50 'I 1986 t 

60 '$ PARA USX CLUB t 

70 immtmmtmm 

80 COLOR 1,15.13:CLEAR 500 
90 SCREEN fiKEY OFF: HIDTH 35 
100 FOF W=0 TO 21 

110 PRWT"»» IHHIHMHIMWHHIMH 

««' 

120 NEXT M 

130 DEFIN T X.Y,B.C,A,T.F.G,L,K,P,S,V,J 
140 LOCATE I2,5:PRIHT" LA ERUA " 
150 LOCATE 11, 10: F'F.INT" HECHO POP " 
160 LOCATE 4,15:PRINT" TOMEL' FONTCUBERTA 
FEBPEP " 

170 LOCATE 12,:B: C PINT" 
180 LOCATE 12,i?:PRINT" PULSA ESPACIO " 
190 LOCATE 12.20:PFINT" 
200 A$=!NKEV$:IF A$<>' " THEN 200 
210 FQP ü=0 TO 20:PEAD B$:PLAY B$: NEXT U 
:PLAY"LSC":PLAY n L16CE-DC n :REST0RE 
220 FOR W=0 TO 24:PPINT:NEXT M 
230 LOCATE 0.0 

240 ' »»TECLAT 0 JDYSTICK<<<<<< 
250 LOCATE L2.8íPRINT '0. -TECLADO" 
260 LOCATE 12,10:PPINT "1.-30YSTICK" 
2 7 0 LOCATE 1I.12:PRINT "ESCOSE 0 0 1" 
280 J$=IHKEY*jIF »»"'" OP J$*" " T HEN 280 
290 IF VAL(J$)M THEN 4o0 
300 MUO 

310 , »>»DADES !tt)SICA<««« 
320 DATA V15T65.L8C4C.CL16CE-DC.L8503SA 
B04C, C, L1604CE-DC. L8G03SAB05C, C. L16CD-C 
04B-,L8A-F,F.L3FB-,B-.L!6B-05C04B- A-.L 
SE-,E-,E-A-C.L16E-P&A-,L8B 
330 ';>:>;ESCQLLIP NIVELL 
340 CLS 

350 LOCATE 4. 10:PRINT"3UE NIVEL QUIERES 
!,2.3): B 

360 Af=INKEY$:N=VAL(A$) 

370 IF Hri THEN FI=3:E0TG 410 

380 IF N=2 THEN FI=5:6QTQ 4Í0 

390 IF N=3 THEN FI=7:SQT0 410 

400 SOTO 360 
1 L 




410 CLS: LOCATE 3, If :PRIHT*9ÜIE»ES LAS IN 
STRUCCIONEStS/N)?" 

420 FOR U=0 TO 20:PEAD BtsPLÁY B$:NEXT U 
: PLAY "03L85AE04LBC." 
430 A$«INKEY* 

440 IF A$="S" OP ft$="=" THEN 470 
450 IF A$="N" OP A*=V THEN 640 
460 GOTO 430 
470 PESTOPE 580 
480 CLS 

4"0 FOP 8*1 TO 3 
500 CLS: LOCATE ,8 
510 POR m TO 2 
520 READ C$:PRINT C$ 
530 PPINT: PRINT 
540 NEXT M 

550 LOCATE 9:PRINT n PULSA ESPACIO" 
560 A$=INKEY$:IF A*0" " THEN 560 
570 NEXT 0 

580 DATA ■ Este juego consiste en cargar 
el cani ón con los diferentes objetos 
que aparecerán en la pantalla." 
590 DATA " Has de luchar contra los pa 
jaros que quieren derribarte la carga y 
centra el tieipo." 

600 DA T A " La puntuación es de 50,25, 
15 o 5 puntos según la distancia del 
Objeto al canion." 

610 DATA " Conseguirás una vida extra c 
ada 150 puntos y la dificultad aumenta- 
ra. " 

620 DATA "Para coger un objeto has de ap 
retar espacio o el botón disparador del 
joysti:fc y para descargar hacer Ib nism? 



630 DATA " MUCHA SUERTE" 

640 CLS:LOCATE 8. 10:PRINT"ESPERA UN HOME 

NTO" 

650 RESTORE 
660 S=0 

670 COLOR 1.3.14 

680 ')»»»»DISENYA SPRITES««« 

690 RESTORE 8 7 0 

700 DIN ¿«31) 

711 FOR W=l TO 27 

720 FOP 0=1 TO 8 

7 30 READ Al 

740 J$(W)=J$(N}+CHP$ÍVAL("!tH"*A$) ) 
7 50 NEXT Q 
760 NEXT í 
70 SCREEN 2,2 

780 SPRITEs<íW$'4!*J$'n+]$!5)*J$íl! 
"0 SPRITE$!2^¿s(¿!+:$ílW$í 7 W$(l) 
800 SPPITE$(0 l =J$(8)*J$(9)*J$!10)+J$(U) 
810 SPRITE$í7)=J$(2)+J$(l)+J$(3Hj$(i) 
820 SPRITE$(10)=J$(28) 
630 FOR W=I2 TO 24 STEP 4 
840 SPRITEÍ =J$'WÍ *J$íW+13 *J$íW*2) 
$(W+3) 
850 NEXT W 

860 ' >)>;;DADE5 SRFITE5C <««•< 

870 DATA 00,00.00,00.00,00,00.00 

880 DATA 00.20,50.08,07,03,03.04 
8*0 DATA 00,10,28,40,80,00.00,80 
900 DATA 01,01,02,04,08,08,04.00 
°10 DATA 80,80,40,20,10,10.20.00 
920 DATA 01.01.02.04,04.02,01.00 
"30 DATA 80,80,40,20,20,40,80,00 
940 DATA 0C,1E,7F,4C,40,40, 7 F,21 
950 DATA ID, 06, 00, 00, 00, 00, 00, 00 
960 DATA 30, 78, FE, 32, 02, 02, FE, 84 
970 DATA B8, 60, 00,00. 00. 00. 00.00 
980 DATA 00.00,00.00,00,00,01.06 
990 DATA 18,60,80,40,2D,1E,1E.0C 
1000 DATA 00.00.00,00,00.00,81,81 
1010 DATA 44,28,10,60.80,00,00,00 
1020 DATA 01.02,04,08, 10, 26, 3F.3F 
1030 DATA 3F,1F,1F,0F,0F.0 7 ,07,03 
1040 DATA 80,40.20, 10, 08, 04, FC,FC 
1050 DATA FC,F8,F8,F0,F0,E0,E0.C0 
1060 DATA 00.01,02.02,03,02,05,05 
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1070 DATA 08,08,11,11,3E,22,44,44 




1560 '»»»»»»COSES««««« 


2100 PUT SPRITE 3,(X,Q),1 


1080 DATA B0, 40,20, 20,E0,20,F0,30 




1570 F=INT(RND (-TIME) 128) :F=FI6+40 




2110 NEXT Q 


1090 DATA F8,88,7C,44,3C,22,1F,11 




1580 G=INT(RND(-TIME)l4)+3 




2120 IF X<220 THEN K=1:VID=VID+1 


1100 DATA 00,01,03,07,03,01,00,01 




1 5«?0 PUT SPRITE 8.ÍF.150M G 




2130 TP=0:LINE(140,173)-(190,1B0),15.BF 


1110 DATA 03,07,0F,1E,3C, 78,70,20 




1600 RETURN 




2140 GOSUB 2180: GOSUB 2340 


1120 DATA 80,CC,FC,FC,FB,FC,FE.FF 




1610 '»>»INICIALITZA OCELLS««« 




2150 LO=0:T=1 


1130 DATA FE, 9C, 08, 00, 00, 00, 00, 00 




1620 IF FI=8 THEN FI=4:PE=PE-10:FOR M£*1 




2160 GOSUB 1560 


1140 OPEN "GRP: 1 AS 11 




TO FI:PUT SPRITE WX+8, (260. 260), 6,7 




2170 RETURN 


1150 COLOR 10 




1630 IF PE=20 THEN PE=40 




2180 ' »»»»PUNTUAR««««««< 


1160 FOR M=20 TO 160 STEP B 




1640 I=INT(210/FI) 




2190 IF K=l THEN PLAY "T100V15O2L16B6B6 


1170 PRESET(20.WZ):PRINTt!,'>T 
1180 NEXT W7. 




1650 B(l ) =INT (RND (-TIME) tD+40 




03LBEDC. ":K=0: RETURN 




1660 C(l)=INT(B(l)/2) 




2200 IF F<80 THEN P=50:GOTO 2240 


1190 LINE(0,160)-(40,170).10.BF 




1670 FOR H7.=2 TO FI 




2210 IF F<120 THEN P=25:60T0 2240 


1200 LINE (0,170)-(255.191).15,BF 




1680 B(lt)-B(NX-n+l 




2220 IF F<180 THEN P=15:G0T0 2240 


1210 FOR HX=20 TO 250 STEP 8 




1690 C(W2)=C(WM)+INT(I/2) 




2230 IF F<255 THEN P=5 


1220 PRESET(N7..20):PRINT#1,T 




1700 NEXT N7. 




2240 PLAY "V15Q5L16ECQ4GEL4C" 


1230 NEXT «7. 




1710 RETURN 




2250 PT=PT+P 


1240 PSET <20.2).10:DRAN "D17L17" 




1720 '»»EN CAS DE COLISIO««« 




2260 C0=C0+1 


1250 PSET (250,205. 1:DRAU "M20, 2M2 , 20M1 5 




1730 GOSUB 1610: GOSUB 2060 




2270 LINE <134.184)-(180,190),15,BF 


,159" 




1740 GOSUB 2340 




2280 COLOR 1 


1260 PSE T <220,155),6:DRAW"C6R21U7P6¡1250 




1750 RETURN 1390 




2290 PSET (140,184),15:PRINT *1,USIN6'M 


, 155M254, 158D7L34U10 n : PAINT (221 . 156) ,6 




1760 ' »»»»OCELLS««««««< 




t« PUNTOS";PT 


1270 CIRCLE (226.166),4,1,,.1.4:PAINT(22 




1770 FOR H7.= l TO FI 




2300 INTERVAL ON 


5,165),1 




1780 PUT SPRITE H7.*3. (B(W7.) .C(W ) ,6,7 




2310 IF PTM50IS THEN V I D=V I D- 1 : S=S+ 1 : F I 


1280 CIRCLE '245,Í66).4,1.,,1.4:PAINT(24 




1790 B(M)=B!WX)-5 




■FM 


5,166),1 




1800 C'W7.)=C(«X)+5 




2320 GOSUB 2340 


1290 COLOR 1 




1810 IF C(W7.)<40 THEN C(r¿)=150 




2330 RETURN 


1300 '»>INICIALITZA VARIABLES<<< < 




1820 IF C(W?.)M50 THEN C'H7.)=40 




2340 '»^»IMPPIMR VIDES««««« 


1310 X=120:Y=<'0:T=!:S=1:PE=50 




1830 IF BWK40 THEN B(K7.)=240 




2350 LINE (40,184)-(80.190).15.BF 


1320 ON STOP GOSUB 2400: STOP ON 




1840 IF B(HX)>240 THEN B(N7.)=40 




2360 COLOR 1 


1330 ON STRI6 SOS'JB 1530, 1530, , 1530 




1850 NEXT n 




2370 PSET (40.184).15:PRINT ll.USING"« 


1340 STRIG'0) 0N:STRI5!1) ON :STRIB(3i 0 




1860 RETURN 




FALLOS": VID 


N 




1870 '»»MOUPE 5ANX0< ««««« 




2380 IF VID=3 THEN 2400 


1350 ON INTERVAL=50 GOSUB 2510 




18B0 IF X '42 THEN X=42 




23^0 RETURN 


1360 ON SPRITE GOSUB 1720 




1B €Í 0 IF X>240 THEN X=240 




2400 '»»»FINALITZAR<««« 


1370 GOSUB 1560:GOSUB 1870: GOSUB 2290:50 




1900 IF Y<38 THEN V=38 




2410 INTERVAL OFF:STRIG(0) 0FF:STRIG(1) 


SUB 2340 




1910 IF Y)144 THEN Y=144 




0FF:STPIG(3) OFF 


1380 GOSUB 1610 




1920 IF ft>S THEN LINE í X + 1 4 « 36 > - í X + 1 4 . Y+ 




2420 3CREEN 0: COLOR 1 


1390 A=ST!CK!JY) 




8). 3 




2430 LOCATE 8,9:PRINT "TIENES"PT n PUNTOS" 


1400 GOSUB 1760 




1930 IF A<5 THEN LINE fX*2,36)-(X+2,Y+8! 




2440 LOCATE 8,12:PRINT "CQN'CC'OBJETOS" 


1410 '»»»»MOVIf!ENT // v:<«« 








2450 LOCATE 8.15:PRINT "EN EL NIVEL'N 


1420 ON A+l GOTO 1390. 1430, 1440. 1¿50, 146 




1940 LINE 'X+3,33)-'X+B,Y+2!.l 




2460 LOCATE 4. 1?:PRINT "QUIERES VOLVER A 


0,1470, 1480. 14 c 0. 1500 




1950 LINE ÍX+8,Y*2MX+8.145),3 




JUGAR 'S/N 1 " 


1430 Y=Y-o:6CT0 1510 




1960 PUT SPRITE 0. (X, 28), 6,0 




24 7 0 ftt=I«KEY$ 


1440 Y=Y-6:X=X+6:G0T0 1510 




1970 IF A=l THEN PUT SPRITE 1,!X.Y\1,T 




2480 IF A$="S" OR A*=V THEN PUN 


1450 X=X+i:G0TO 1510 




1980 IF T=2 AND L0=1 THEN PUT SPRITE B,< 




2490 IF A | s - N - OR A$="n" THEN END 


1460 X=X+6:Y=Y+6:G0T0 1510 




X,Y+B),1.G:SPRITE ON 




2500 GOTO 2470 


1470 Y=Y+6:50TQ 1510 




1990 PUT SPRITE i. (I,Y),i,T 




2510 '»»;>TEKPS««««« 


14B0 X=X-6:Y=Y+6:G0T0 1510 




2000 RETURN 




2520 TP=TP+1 


14"0 X=X-6:G0T0 1510 




2010 '»»»»>AGAFAP<«<«<<<:<« 




2530 LINE (90.172)-Ü91,1B1),1.B 


1500 X=X-6:Y=Y-6:60T0 1510 




2020 IF YU44 THEN T=2:LO=0: RETURN 




2540 COLOR 1 


1510 GOSUB 1380 




2030 IF X+8>F AND X+8<F*16 THEN :L0=1:PL 




2550 PRESET (91. 173) ¡PRINTIl, "TIEMPO" 


1520 BOTO 1390 




AY "T190V15Q4LBC.L16EL8GC5C":PLAY "05L8C 




2560 COLOR 6 


1530 INTERVAL ON 




04GCEG05C. " 




2570 PRESET (140+TP, 173) -.PPINTtl. T' 


1540 IF T=l THEN PLAY"T200V15L8O4G+O5E+" 




2040 T=2 




2580 IF TP<PE THEN RETURN 


,"T200V15O4L8E+": GOSUB 2010:GOSUB 1870:R 




2050 RETURN 




2590 VID=VID+1:STRI6(0! 0N:STRIS(1) ON:S 


ETURN 1390 




2060 ' >>>>>>> > AMOLLAR < < < < < ' < ' «< 




TRIG(3) ON 


1550 IF T=2 THEN PLAY"T200V15L8O5D + O4F+ n 




2070 IF LO=0 THEN T=l: RETURN 




2600 IF LO=0 AND T=l THEN GOSUB 2120 ELS 


, "T200V15R8LBO4D+ n : GOSUB 2060: GOSUB 1870 




2080 SPRITE OFF 




E GOSUB 2060 


¡RETURN 1390 




2090 FOR 0=Y TO 140 




2610 RETURN 
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Fomenta la creatividad. Respeta el dere- 
cho de autor. Centenario de la conven- 
ción de Berna 1886-1986. 



Condiciones: 

Toda denuncia para esta sección deberá venir suscripta con 
los datos personales del denunciante, aunque su nombre no 
aparecerá publicado. 

— Deberá aportarse toda documentación que acredite el 
objeto de la denuncia, de lo contrario no se tendrá en cuenta. 

— La documentación recibida se hará llegar a la marca afec- 
tada para que tome las medidas jurídicas oportunas. 

— Una vez publicada la denuncia, ya no se tendrán en cuen- 
ta las que lleguen posteriormente sobre el mismo programa. 

— Los denunciantes recibirán como recompensa el progra- 
ma original denunciado. 

— Recordamos que se considera piratería la desprotección y 
copia de programas en cualquier formato y su uso con fines 
de lucro. 




SUPER CHESS rotulado por Topsoft se co- 
mercializa presuntamente de un modo ilegal 
en España, ya que es una versión de 
CHESS'86 comercializado por Philips. 



Programa 



Test de listado™ 




■ la grúa 




10 


- 58 


540 


-218 


1070 


-248 


1600 


-142 


2130 


- 94 


20 


- 58 


550 


-138 


1080 


-248 


1610 


- 58 


2140 


- 41 


30 


- 58 


560 


-166 


10°0 


- 59 


1620 


- 58 


2150 


- 42 


40 


- 58 


5 7 0 


-212 


1100 


-200 


1630 


-199 


2160 


-185 


51 


- 58 


580 


-190 


1110 


- 28 


1640 


-113 


2170 


-142 


60 


- 58 


5?0 


-177 


1120 


-214 


1650 


- 98 


2180 


- 58 


70 


- 58 


600 


-252 


1130 


- 7 


1660 


- 22 


21°0 


-234 


80 


- 62 


610 


-151 


1140 


-224 


1670 


-104 


2200 


- 19 


90 


-211 


620 


-196 


1150 


-214 


1680 


- 75 


2210 


- 34 


100 


-214 


¿30 


- 14 


1160 


-141 


16°0 


- 41 


2220 


- 84 


110 


-147 


640 


-160 


1170 


- 33 


1700 


-255 


2230 


-254 


120 


-218 


650 


-140 


1180 


-255 


1710 


-142 


2240 


- 82 


130 


- 26 


660 


- 83 


1190 


- 68 


1720 


- 5B 


2250 


-120 


140 


- 0 


670 


- 88 


1200 


- 63 


P30 


-212 


2260 


- 22 


150 


-158 


680 


- 58 


1210 


-231 


1740 


-200 


2270 


-133 


160 


-195 


6°0 


T 

0 


1220 


- 32 


1750 


- 15 


2280 


-207 


170 


- 79 


700 


-114 


1230 


-255 


1760 


- 58 


2290 


-182 


180 


-217 


710 


-221 


1240 


- 86 


1770 


-103 


2300 


- 67 


1?0 


- 81 


720 


-i?B 


1250 


-125 


1780 


- 79 


2310 


-183 


200 


- 60 


730 


-236 


1260 


- 38 


1790 


- 21 


2320 


-200 


210 


-103 


740 


-222 


1270 


- 84 


1800 


- 22 


2330 


-142 


220 


-184 


750 


-212 


1280 


-103 


1810 


- 64 


2340 


- 5B 


230 


- 38 


760 


-218 


1290 


-207 


1820 


- 62 


2350 


-195 


240 


- 58 


#1 




1300 


- 58 


1830 


-152 


2360 


-207 


250 


-206 


780 


- 91 


1310 


-213 


1840 


-150 


23 7 0 


- 0 


260 


- 67 


790 


- 96 


1320 


-136 


1B50 


-255 


2380 


-194 


in 


-174 


800 


-113 


1330 


-111 


1860 


-142 


2390 


-142 


280 


- 72 


810 


- 93 


1340 


- 67 


1870 


- 58 


2400 


- 58 


:=>? 


-146 


820 


- 46 


1350 


-229 


1880 


-102 


2410 


- 24 


300 


-228 


830 


-212 


1360 


-181 


1890 


-240 


2420 


-223 


310 


- 58 


840 


-194 


1370 


-180 


1900 


- 36 


2430 


-223 


320 


-102 


850 


-218 


1380 


-235 


ttil 


- 50 


2440 


- 19 


330 


- 58 


860 


- 58 


1390 


-197 


1920 


-231 


2450 


- 58 


340 


-159 


870 


-184 


1400 


-129 


1930 


-213 


2460 


- 33 


350 


- 65 


880 


-216 


1410 


- 58 


1940 


- 47 


2470 


- 64 


360 


- 0 


890 


-215 


1420 


-163 


!"50 


-156 


2480 


-220 


370 


-178 


900 


-212 


1430 


-102 


1960 


- 55 


2490 


-201 


380 


-181 


910 


-210 


1440 


- 71 


1°70 


- 75 


2500 


- 70 


J?| 


-184 


920 


-199 


1450 


- 99 


1980 


-139 


2510 


- 58 


400 


- 0 


930 


-220 


1460 


- 70 




-164 


2520 


- 58 


410 


- 96 


940 


- 61 


1470 


-101 


2000 


-142 


2530 


-253 


420 


-244 


951 


-211 


1480 


- 71 


2010 


- 58 


2540 


-207 


430 


- 64 


960 


- 53 


1490 


-100 


2020 


- 64 


2550 


-164 


440 


- 55 


970 


-216 


1500 


- 72 


2030 


-114 


2560 


-212 




-10 


"OS 


-10' 

ni 


1 , C .10 


-250 


?04C 


JO 


2570 


- 98 


460 


- 70 


990 


- 40 


1520 


- 10 


2050 


-142 


2580 


- 28 


470 


-224 


1000 


-202 


1530 


- 67 


2060 


- 58 


2590 


- 53 


480 


-159 


1010 


-217 


1540 


-128 


20 7 0 


- 29 


2600 


-192 


4°0 


-193 


1020 


i 


1550 


- 59 


2080 


-178 


2610 


-142 


500 


-246 


1030 


- 60 


1560 


- 58 


20*0 


-143 






510 


-1"8 


1040 


- 37 


1570 


-164 


2100 


- 35 






520 


- 70 

Üli 


1050 


-134 


1580 


-173 


2110 


-212 


TOTAL: 


530 


- 92 


1060 


-204 


1590 


-216 


2120 


-214 


33030 



M.S.X. ly 2 
AMSTRAD 



•TE DESAFIAMOS*' 



ERACRUZ 



¡ACEPTA EL RETO! 



WAR CHESS 




TU IMAGINACION, TU LOGICA, TU ESPIRITU DE 
AVENTURA. ATUJOYSTICK. TE DESAFIAMOS A PASARLO 
BIEN ¡A LO GRANDE! TU ORDENADOR! 

TE PRESENTAMOS LOS MAS ALUCINANTES JUEGOS. 
SUPERPROGRAMAS. SUPER: DESAFIANTES, INTRIGANTES, 
LLENOS DE ESTRATEGIA PARA QUE USES A FONDO TU IMAGI- 
NACION Y DEMUESTRES TU HABILIDAD E INTELIGENCIA. TE 
PROPONEMOS HORAS DE DIVERSION SEGURA. 
¿HASTA QUE HORA DE LA MADRUGADA RESISTIRAS? 

CUANDO LA LEYENDA SE CONVIRTIO HISTORIA 





¡NOVEDAD!! 



EL CASO VERACRUZ/WAR CHESS /THE MOST AMAZiNG MEMORY GAME/ MANDRAGORA /LAS VEGAS /EL GNOMO FED0R/3D MAGIC PIN BALL/ SKATE DRAGON 



* T 

NFOCRAMES 



Pedidos: Tel. 253 74 00 



Calle Valencia. 85 - 08029 BARCbLONA • Télex: 54554 DLGC 
Teléfonos 253 86 93 • 253 89 09 253 90 45 - 253 74 00 



IudícBít 



BIENVENIDOS A f 




UN SOFTWARE DE ALIA CALIDAD PARA MSX 

SU 




CON GARANTIA 




KRYPTON. La batalla más audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad Un juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX. 
PVP. 500 Ptas. 



El secreto de la 



U-BOOT. Sensacional Juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 



QUINIELAS. El más completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 



SNAKE. Entretenido y muy divertido Juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella. PVP. 600 Ptas. 



úli 




i V 



EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. [Atrévete si 
puedes! PVP. 700 Ptas. 



STAR RUNNER. Conviértete en el audaz pilo- 
to interestelar y lucha a muerte, a través del 
hiperespacio, contra las defensas del tirano 
Daurus. Dos pantallas y cinco niveles de difi- 
cultad. PVP. 1.000 Ptas. 




PLOPPY. El Preguntón. Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costará 
mucho superarlo. PVP. 1.000 Ptas. 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión. Diez niveles 
de dificultad. PVP. 1.000 Ptas. 



Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 

^Nombre y apellidos: | 

Dirección: 

| Población: CP Prov Tel.: | 

□ KRYPTON Ptas. 500- □ SNAKE Ptas. 600- □ FLOPPY PVP 1000 Ptas 

I □ UBOOT Ptas. 700- □ EL SECRETO DE LA PIRAMIDE Ptas. 700- □ MAD FOX PVP 1000 Ptas | 

I □ QUINIELAS Ptas. 700- □ STAR RUNNER Ptas. 1.000- 

Gastos de envío certificado por cada cassette Ptas. 70,- 

I Remito talón bancario de Ptas a la orden de Manhattan Transfer, S A 

ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: 

Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 
Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 








Con este programa los estudiantes 
podrán disponer de una tabla de ele- 
mentos, definición de determinadas 
leyes químicas, nociones de formula- 
ción, etc. El acceso al menú es sencillo 
y bastante rápido. 



10 ' TEORIA QUIMICA 
20 ' Por Josep Lainez 
30 ' Para USX CLUB 
40 REM INICIO 

50 CLS:KEY 0FF:C0L0R 15,1,1 

60 KEY(l) 0N:KEY(2) 0N:KEY(3) 0N:KEY(4) 

ON 

70 ON KEY GOSUB 140,1390,1530,3840 

B0 CLS:LOCATE 14, 0: PRINT'MENU" 

90 LOCATE 6,4:PPINT"F1- Tabla y explicac 

ifln" 

100 LOCATE 6,6:PRINT'F2- Algunas leyes q 
¡tilicas" 

110 LOCATE 6,8¡PRINT"F3- Nociones de for 
■dación" 

120 LOCATE ¿, !0:PPINT"F4- Finalizar" 
130 GOTO 130 

140 PEM • TABLA PERIODICA 
150 CLS 

160 PRINT: RF INT" Con esta tabla te ser 
á lucho más fácil realizar las fomulac 
iones de todo tipo de compuestos." 
170 PRINT" Su utilización es nuv supl 
e: 

180 PRINT" Los eieoentos están agrupad 
os por características en vez de por n2 
a- tánico. Notarás que faltan algunos 

eleaentos coifl el francio,geraamo, n 
obelio, uranio, plutonio..." 
190 PRINT" Esto es debido a que sólo s 
e en- cuentran los que en más coipuesto 
s hay en la Naturaleza." 
200 PFINTsFFINT: PRINT: PRINT: PRINT" F 
ULSA UNA TECLA" 

210 I$=INKEY$:IF 1$="" THEN 210 EL5E 220 
220 CLS: COLOR 15, 1 . 1 : SCREEN 2:0PEN"GRP:" 
ASI1 

230 A$= , C15BHi0.0D10P180D100L80ü20L20U40 

L20D140L40U60L20U120" 

240 DRAH A$:LINE(10,10)-(1?0,10).15:LINE 

(0,0>-l255,Pl),15,B 

250 LINE>'10,30)-(190,30U! 

260 LINE(10,50}-(70,50;,15:LINE;80,50)-( 

190. 50), 15 

270 LINE(10.70)-(70.70},15:LINE(90,70)-( 
190,70) 

280 LINE(10.90!-Í70,90):LINE(?0.90)-(190 
,90) 




2°0 LINE40.U0)-'70,110) 
300 LINE!10,130M70,130) 
310 LINE(30,150)-(70,150) 
320 LINE(30,170)-(70,170) 
330 LINE(30.190)-<70,190) 
340 LINE(30,0W30,130) 
350 LINE(50,0)-(50.19i) 
360 LINE(70,0)-(70,191) 
370 LINE(<?0.0)-(90,50) 
380 LINE(110,0)-(110 I Í '0) 
390 LINE(130,0)-(130,110! 
400 LINE(150,0)-(150,110) 
410 LINE(170,0)-(170,110) 
420 LINE(10,0i-!190,0),15 
430 LINE(190,0)-fl90,10) 
440 PRESET(20,2>:PRINTtl,"0" 
450 PRESET(40,2)¡PRINTtl,"l' 

460 PRESET(60,2):PRINTI1, , 2" 
470 PRESET(80,2):PRINTI1,"3' 
480 PRESET(100,2):PRINTtl,'4" 
490 PRESET(120,2):PRINTI1,"5" 
500 PRESET(140,2):PRINTI1,"6" 
510 PRESET(160,2):PRINTtl,"7' 
520 PRESET(180,2):PRINTtl,"8" 
530 REH POSICIONAMIENTO ELEMENTOS 
540 PRESET (12.15): PRINTtl , "He" 
550 PRESET(12,35):FRINTtl,"Ne' 
560 PRESET ( 1 2. 55) : PRINTtl , ■ Ar ■ 
570 PRESET (12, 75) : PRINTtl , "Kr " 
580 PRESET (12,95) :PRINTtl, °Xe" 
590 PRESET (12, 115) : PRINTtl , "Rn " 



600 PRESETÍ37, 15) :PRINTtl, "H- 
610 PRESET(32,35):PRINTtl,"Li" 
620 PRESET ( 32 , 55 ) : PR I NT 1 1 , -Na " 
630 PPESET(32,75):PRINTtl,'K" ' 
640 PRESET(32,95):PRINTtl,'Rb" 
650 FRESET (32, 115) : PRINTtl , "Cs" 
660 PRESETÍ32, 143) rPRINTtl. "Cu" 
670 PPESET(40,133):PRINTtl,"2" 
680 PRESET (32, 155) : PRINTtl , " Ag" 
690 PRESET(32,180):PRINTtl,"Au" 
7 00 PRESET(40,172):PRINTI1,"3" 
710 PRESET (52, 15) :PRINTtl . "Be" 
720 PRESET (52, 35) : PRINTtl , "Mg- 
730 FRESETf52,55) -.PRINTtl , "Ca* 
7 40 PRESET(t:2,75) :PRINTtl. "Sr" 
750 PFESET(52,95):PRINTtl."Ba" 
760 PRESET(52,115):FRINTtl, B Ra" 
770 PRESET(52, 135)¡PF.INTtl,"In" 
7B0 PRESET(52.155);PRINTtl,"Cd' 
790 PRESET ( 52, 180) ¡PRINTtl, "Hg" 
800 FRESETÍ60. 172) : PRINTtl ," 1 " 
810 PRESET (77, 15) ¡PRINTtl, "B" 
820 PRESET(72,35):PRINTtl,"Ar 
830 PRESET(97,15):PRINTtl."C" 
840 PRESETÍ92.35) :PRINTtl, "Si " 
B50 PRESET<92,60):PRINTtl,"Sn" 
860 PRESET í 100,54) : PRINTtl, "2" 
870 PFESET'92.B0):PRINTti, B Pb n 
880 PRESET '100, 74) ¡PRINTtl. "2" 
890 PPESETí 117, 15> : PF INTtl . "N" 
900 PRESET ( 1 12, 35> : PRINTt 1 . B As" 
910 PRESET(117,55):PFINTtl,"P" 
920 PRESET ( 1 1 2 , 75 > : PR I NTt 1 , " Sb ' 
930 PRESET (112, 95) ¡PRINTtl, "Bi* 
^40 PRESET(137,15):PRINTtl,"0" 
950 PRESET (137, 35): PRINTt l, "S" 
960 PRESETÍ132.55) :PRINTtl.-Se" 
970 PRESET ( 132, 75) ¡PRINTtl , "Te" 
980 PRESET (132, "5): PRINTtl. "Cr' 
990 PRESET (157, 15) ¡PRINTtl, "F" 
1000 PRESET(152, 35) ¡PRINTtl, "Br" 
1010 PRESET ( 152, 55) : PRINTtl , "Cl " 
1020 PRESET ( 1 57 , 75 ) : PR I NTt 1 • " I ■ 
1030 PPESET(152,95):PRINTtl,"Hn" 
1040 PRESET(172. 15) : PRINTtl, "Fe" 
1050 PRESET (172, 35) ¡PRINTtl. "Co* 
1060 PRESET(172.55):PRINTtl,"Ni" 
1070 PRESET ( 172, 75) : PRINTtl . "Pd" 
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Programa 





1080 PRESET(172,?5) :PRINT#1, "Pt" 

1090 PRESET (80, 175) : PRINT#1 , "Pulsa una t 
eda." 

1100 I$=INKEY*:IF I$=" THEN 1100 ELSE 1 
110 

1110 CLQSEtl:CLS:COLOR 15, 1 , 1 : SCREEN 0 

1120 REM EXPLICACION TABLA 

1130 LOCATE 6,0:PRINT"EXPLICACION DE LA 

TABLA" 

1140 LOCATE, 2: PRINT"-Col uaná 0= gases no 
bles" 

1150 L0CATE,4:PRINT"-Coluana 1 actúa val 

encía 1 y espe- cíales" 

1160 LOCATE, 6: PRINT" -Columna 2 actúa val 

encía 2 y espe- cíales" 

1170 LOCATE, 6:PRINT"-Coluana 3 actúa val 

encía 3" 

UB0 L0CATE,8:PPINT"-Colüana 4 actúa val 
encía 4 y espe- cíales" 
1190 LOCATE, 10:PRINT"-Coluana 5 actúa va 
lencias 1,3,5 v especiales" 
1200 LOCATE, 12:PRINT"-Colu«na 6 actúa va 
lencias 2,4,6 y especiales" 
1210 LOCATE, 14:PPINT"-Coluana 7 actúa va 
¡encías 1.3, 5, 7 y especiales" 
1220 LOCATE, 16:PRINT"-Caluana 3 actúa va 
lencias especia- 1 es" : L0CATE8, 20: PRINT 
• PULSA UNA TECLA": I$=INKEY$: !F !$="" 
THEN 1220 ELSE 1230 
1230 CL5 

1240 'ELEMENTOS CON MAS DE 1 VALENCIA 
1250 LOCATE 3.0:PRINT"ELEMENTOS CON MAS 
DE 1 VALENCIA" 

1260 PFINT: PPINT" ESTOS ELEMENTOS SON 

1270 LOCATE 2,4:FR1NT"N= 2' 4 y valencias 
coluana 5" 

1230 LOCATE 2.6:PPINT"C.r= ~'5 y valencia 
i5 coluana 6" 




1290 LOCATE 2,3:PRINT"Mn= 2'4't y val ene 
ias columna 7" 

1300 LOCATE 2,10:PPINT*Fe,Co y Ni = sólo 
valencias 2'3" 

1310 LOCATE 2,12:PPINT"Pd= sólo valencia 
s 2'4" 

1320 LOCATE 2, 14:PFINT"Pt= silo valencia 
s 2'4'6" 

133? LOCATE 2. 16:PRINT°Cu= valencias 2 y 
1" 

1340 LOCATE 2, 18: PFINT" Au= valencias 3 y 
1" 

1350 LOCATE 2. 20 : PF INT"Hg=val enci as ly 2 

1360 LOCATE 2,22:FFINT"Sn v Fb=valencias 
4 v 2" 

1370 I$=INKEY$:IF II»" THEN t37§ ELSE R 
ETURN 80 

UIMICAS 

1390 CLS:LOCATE 6,1 
QUIMICAS 
1400 FOP 1=1 TO 1000:NEXT I:CLS 
1410 LOCATE 4,0:PRINT"LEY DE LA CONSERVA 
CION DE LA MATERIA* 
1420 LOCATE 2.9:PRINT" Durante una reacc 
ión quíaica la aateria no es creada 
ni destruida" 

1430 FOR 1=1 TO 3000:NEXT I:CLS 
1440 LOCATE 10.0:PRINT"LEY DE PROUST" 
1450 LOCATE 2,7:PRINT'Los eleaentos cons 
tituyentes de un coapuesto están present 
es sieapre en una relación fija" 
1460 FOR 1=1 TO 4000:NEXT I:CLS 
1470 LOCATE 2,0:PRINT"LEY DE LAS PROPORC 
IONES MULTIPLES" 

1480 L0CATE2,4:PRINT"Cuando dos eleaento 
sse coabinan en-tre sí en proporciones d 
iferentes. las distintas masas de uno de 
los ele- aentos que se coabinan con una 
aisma aasa del otro están entre si en u 
na relación de números enteros" 
1490 FOP 1=0 TO 6000:NEXT I:CLS 
1500 LOCATE4,0:PRINT"LEY DE COMBINACION 
DE LOS VOLUMENES DE GAY-LUSS 

AC" 

1510 LOCATE, 6:PPINT"Cuando un gas reacci 
ona con otro, lo hace de aodo que la raz 
ón de los vo- lúaenes se exprese por núa 
eros ente- ros / pequeños. El volúaen obt 
enido será igual o aenor que la suaa de 
les volmenes que entran en coabinación 

n 

1520 FOR 1=1 TO 6000: NEXT I:RETURN 80 
1530 REM NOCIONES DE FORMULACION 
1540 KEY(l) 0FF:KEY(2) 0FF:KEY'3) OFF: KE 
Y'4) OFF 

1550 KEYU1 0N:KEY(2) 0N:KEY(3) 0N:KEY(4 



) 0N:KEY(5) ON:KEY(6) 0N:KEY(7> 0N:KEY(1 
0) ON 

1560 CL3:0N KEY 50SUB 1680.1990.2090,222 
0.2910.3110,3510, .,3830 
1570 L0CATE9:PRINT"3UB MENU" 

1580 L0CATE9. 1:PRINT" " 

15 5 0 L0CATE4.4:PRINT"F1= Hidruros" 
1600 LDCATE4.6:PRINT B F2= Oxidos" 
1610 L0CATE4,B:PRINT"F3= Peróxidos" 
1620 LOCATE4,10:PRINT"F4= Acidos" 
1630 L0CATE4,12:PRINT"F5= Hidróxidos o b 
ases" 

1640 L0CATE4,14:PFINT»F6= Sales" 

1650 L0CATE4,16:PRINT"F7= Métodos de noa 

enclatura" 

1660 LOCATE4,18:PRINT"F10= Menú Principa 
1" 

1670 SOTO 1670 

1680 REM HIDRUROS 

1690 CLS:L0CATE12:PRINT"HIDPUR0S" 

1700 L0CATE4.2:PRINT n El H.en sus coabin 

aciones bina- rías, da lugar a tres tip 

os de compuestos:" 

1710 L0CATE2.4:PRINT"a) HIDRACIDOSícon 1 

os eleaentos no metálicos F,Cl,Br,I, 

S.Se.Te)" 

1720 LOCATE 2,3:PRINT"b) Compuestos del 
hidrógeno con otros no metales (N, P 
,C.Si) n 

1730 LOCATE 2, ll:PRINT"c) Hidruros metál 
icos coapuestos con metales" 
1740 LOCATE á,20:PRINT'pulsa una tecla" 
1750 I$=INKEY$:IFI$="" THEN 1750 ELSE 17 
60 

1760 CLS 

1770 L0CATE8:PRINT"F0PMULACI0N DE HIDPUR 
OS" 

1780 L0CATE2.2:PPINT"Para formular los c 
ompuestos bina- ríos del H hay que ten 
er en cuen- ta:" 

1790 L0CATE2,5:PRINT"-La colocación del 
eleaento que se coabinaüzquierda o d 
erecha del ft) Los eleaentos METALICOS 
se colocan a la izquierda y los que fo 
raan H I DR AC I DOS a la derecha" 
1800 L0CATE2,15:PRINT"-La valencia del e 
leaento que se coabina con el H:" 
1810 LDCATE2, 1B:PRINT"E1 núaero de átoao 
s de H que for- jarán parte de la sol 
écula es igual a la valencia del eleaen 
to, ya que la valencia del H es UNO" 
1820 LOCATE 9, 22: PRINT'PULSA UNA TECLA" 
1830 I$=INKEY$:IF 1$="" THEN 1830 ELSE 1 
840 

1840 CLS 

1850 REM EJEMPLOS 

1860 COLOR 15:L0CATE 2:PRINT"Ejeaplos de 
hidrácidos:" 
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1880 PPINT:PRINT M S+H=H2S Acido sulfhid 
rico" 

1890 COLOR 15 

1900 PRINT:PRINT"Ejeaplos de coapuestos 
de H con otros no letales" 
1910 PRINT:PRINT"N + H=NH3 Anoniaco" 
1920 PRINT:PRINT"C+H=CH4 Metano" 
1930 COLOR 4 

1940 C0L0R15:PRINT:PRINT"Eje«plQ5 de hid 
ruros netálicos:" 

1950 PRINT:PRINT"Li*H=LiH Hidruro de li 
tio" 

1960 PRINT:PPINT"Ca+H=CaH2 Hidruro de ca 
Icio" 

1970 PRINT:PPINT:PPINT- pulsa 
una tecla" 

1980 I$=INKEY$:IF 1$="" THEN 1980 ELSE R 
ETURN 1560 

1990 REH mt OXIDOS UU 
2000 CLS:LOCATE 1. 12: PRINT°EL OXIGENO Y 
SUS COMPUESTOS BINARIOS" 
2010 FOR 1=1 TQ 2000:NEXT I : CLS 
2020 PRINT: PRINT" El oxígeno tiene núae 
re de oxida- ción (2-). Actúa en valenc 
ia II. Se coibina con casi todos los el 
esien- tos foraando los OXIDOS." 
2030 PRINT:PRINT"Li{I)*Q(II)=Li20 Oxido 
de litio" 

2040 PRINT:PPINT"Ca(II)+Q!II!=CaO Oxido 
de calcio" 

2050 PRINT: PRINT" Existen eleaentos que 
se presentan en varios estados de oxida 
ción, y distintas valencias cobo el A 
u, Pd,Pt,Hg..." 

2060 PRINT" Para noibrarlos existen tres 
sis- tenas que los puedes ver ahora a 
1 teminar con los óxidos. * 
2070 PRINT: PRINT" PULSA UNA TECLA" 
2080 I$=INKEY$:IF 1$="' THEN 2080 ELSE R 
ETURN 1560 
2090 REM PEROXIDOS 
2100 CLS 

2110 LOCATE 10,12:PRINT"PEROXIDOS" 
2120 FOR 1=1 TO 1500:NEXT 
2130 CLS 

2140 PRINT" Los peróxidos sólo pueden f 
orlarse con los eleientos letales" 
2150 PRINT: PRINT" Su fonación es auv si 
iple: " 

2160 PRINT: PRINT" Sólo ha de foraarse el 

oxidó con la layor valencia del eleient 

o y suiar- le oxigeno. Al final no puede 

sia- plificarse, pero si al principio 
■ 

2170 PRINT: PRINT" Ejeaplo" 
2180 PRINT:PRINT"Peróxido de Au: Au203+0 
♦Au204" 

2190 PRINT:PRINT"Peróxido de Pt: Pt206- 
W>Ft03+0= Pt04" 



2200 PRINT: PRINT" PULSA UNA TECLA" 
2210 I$=INKEY$:IF tú" THEN 2210 ELSE R 
ETURN 1560 

2220 REM ACIDOS 
2230 CLS 

2240 LOCATE 13, 12: PRINT °AC IDOS" 
2250 FOR 1=1 TO 1000:NEXT I 
2260 CLS 

2270 LOCATE 13: PRINT"AC IDOS" 

2280 PRINT: PRINT" Los ácidos son sustan 

cías que:" 

2290 PPINT:PRINT"a) Ceden protones(H+) e 
n aedio acuc- so" 

2300 PRINT"b) Enrojecen la tintura de to 
rnasol" 

2310 PRINT:PRINT"c) La fenolftaleina, inc 

olora en ie- dic básico, sigue íncolor 

a en ae- dio ácido" 

2320 PF;INT:PRINT"d • Presentan sabor agri 

o" 

2330 LOCATE B. 20: PF.INT"PULA UNA TECLA" 
2340 I*=INKEY$:IF 1$="" THEN 2340 ELSE 2 
350 

2350 CLS 

2360 LGCATE 13:PRINT"ACIDQS" 

23 7 0 P RINT: PRINT" Las sustancias ácidas 

pertenecen a dos grupos de coapuestes. 

Unos.aque- líos que nc contienen 0 en s 
u aolé- cula y que reciben el noabre de 

hi- drácidos." 

2380 PFINT" Estos ácidos toaan la terain 
ación < hídriee » coig ácido clorhídri 
co HCi." 

2390 PRINT:PFINT:PPINT" Otros ácidos con 
tienen 0 en su ao- lécula v reciben el 
noabre de OXACI- DOS, de fóraula general 
HxMyOz. En esta fóraula general, 
M es casi sieapre un no letal. Los subí 
ndices x,y,z corresponden a núaeros ent 

eros" 

2400 LOCATE 8,20:PRINT"PULSA UNA TECLA" 
2410 I$=INKEY$:IF 1$="" THEN 2410 ELSE 2 
420 

2420 CLS 

2430 LOCATE 10:PRINT"ACIDOS IMPORTANTES" 
2440 PRINT"Acidos ¿aportantes del grupo 
de los alogenosICl.Br e I) " 

2450 PRINT:PRINT"HC10 Acido hipodor 

050" 

2460 PRINT-HC102 Acido cloroso" 
2470 PRINT"HC103 Acido dórico" 
2480 PRINT"HC104 Acido perdórico" 
2490 PRINT:PRINT"Estos usaos-ácidos pue 
den foraular- se con el Br e I" 
2500 LOCATE 8.20:PRINT"PULSA UNA TECLA" 
2510 I$=INKEY$:IF 1$="" THEN 2510 ELSE 2 
520 

2520 CLS 

2530 LOCATE 10: PRINT" ACIDOS IMPORTANTES" 



2540 PRINT" del grupo de los anflgenos(S 

,Se,Te)" 

2550 PRINT 

2560 PRINT"H2S03 Acido sulfuroso" 
2570 PRINT"H2S04 Acido sulfúrico" 
2580 PRINT 

2590 PRINT" Cóao el S, se foraula el Se 
y el Te" 

2600 LOCATE 3.20:PRINT"PULSA UNA TECLA" 
2610 I$=INKEY*:IF 1$="" THEN 2610 ELSE 2 
620 

2620 CLS 

2630 LOCATE 10: PRINT"ACIDOS IMPORTANTES" 
2640 PRINT" del grupo mtrogenoideo(N,P, 
As)" 

2650 PRINT:PRINT"HN02 Acido nitros 
o" 

2660 PPINT"HN03 Acido nítrico" 
26^0 PRINT"H3P03 Acido ortofosforos 
o" 

2680 PRINT"H3P04 Acido ortof osf ón: 
o" 

2690 PRINT:PRINT" Cuando un eleaento con 
igual grado de oxidación da distintos 
coapues- tos, para diferenciarlos se 1 
es ce- loca unos prefijos que indican s 
u aayor o aenor contenido de H20." 
2700 PRINT" Estos prefijos son:" 

2710 PRINT" META > 1 MOLECULA DE ASU 

A" 

2720 PRINT' PIRO > 2 MOLECULAS DE AG 

UA" 

2730 PRINT" OPTO > 3 MOLECULAS DE AG 

UA" 

2740 LOCATE 3, 20:PRINT"PULSA UNA TECLA" 
2 7 !0 I$=!NKEYS:IF 1$="" THEN 2750 ELSE 2 
760 

2760 CLS 

2770 LOCATE 10:PP.INT"ACIDOS IMPORTANTES" 
2780 PRINT" del grupo del carbonolC 
y Si)" 

2790 PRINT:PRINT"H2C03 Acido carbón 
ico" 

2800 PPINT"H2SI03 Acido metasilicic 
o" 

2810 PRINT"H4SI04 Acido ortosilicic 
o" 

2820 LOCATE B,20:PRINT"PULSA UNA TECLA" 
2830 I$=INKEY$:IF I$=INKEY$ THEN 2830 EL 
SE 2840 
2840 CLS 

2850 PRINT-ACIDOS IMPORTANTES CON ALTO G 

RADO DE OXIDACION(Hn,Cr)" 
2860 PRINT: PRINT"HNn04 Acido peraan 
gánico" 

2870 PRINT"H2Cr04 Acido cróaico" 
2880 PRINT"H2Cr207 Acido dicróaico" 
2890 LOCATE8,20:PRINT"PULSA UNA TECLA" 
2900 I$=INKEY$:IF 1$="" THEN 2900 ELSE R 
ETURN 1560 

J 
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2910 REM HIDROXIDOS 

2920 CLS:LOCATE 12, 10: PRINT" HIDROX IDOS" 

2930 FOR 1=1 TQ 1500:NEXT I 

2940 CLS 

2950 LOCATE 5 : PR INT ■ CARACTER I ST I C AS PPIN 

CIPALES" 

2960 PRINT 

2970 PRINT" Las hidróxidos son sustancia 
s que:" 

29B0 PRINT'a) Azulean la tintura de torn 
asol enrojecida Dor los ácidos" 
2990 PRINT 

3000 PRINT"b) Enrojecen la fenolf taleina 

n 

3010 PRINT"c) Son cáusticos. Su sabor ra 
cuerda a la lejía." 
3020 PRINT: PRINT" Las bases están foriad 
as cor un ion ietálico y el gruoc 0H-(ox 
idrilo). anión negativo de grado de ox 
idación (H) Su formula general es HÍ0H 
)n. fl, indica el elemnto ietálico i n su 

valencia. " 
3030 PRINT 

3040 PRINT'EjMplo:" 
3050 PRINT 

3060 PP.INT"KCH Hidróxido de potas 

10" 

3070 PRINT"Fe(D)H2 Hidróxido de hierr 
ollí)" 

3080 PFINT'Cr(0H)3 Hidróndo de cromo 
(III)" 

3090 LOCATE 8. 23: PRINT'PULSA UNA TECLA" 
3100 IÍ=INKEY$:IF 1$="" THEN 3100 ELSE R 
ETURN 1560 

3110 CLS: REM SALES 
3120 LOCATE 10. 1 2 : PF INT " SALES" 
3130 FOR 1=1 TO 1000:NEXT I : CLS 
3140 PRINT" Las sales son el resultado d 
e la u- nión de una especie catiómca co 
n una especie amónica distintas a H- 
. 02- v OH-. Las sales se nombran se- g 
dn procedan de los amones senci- líos 
ode amones precedentes de ios oxácido 
s.' 

3150 PRINT 

3160 PRINT" Si proceden de aniones senci 
líos se nombra el elementoacabado en « u 
ro * seguido del metal correspondiente:" 
3170 PRINT'Ejemplo:" 
31S0 PRINT"ClNa Clor-uro de sodio" 
3190 PRINT'ICu Yod-uro de cobre" 
3200 LOCATE 8,20:PRINT"FULSA UNA TECLA" 
3210 I$=!NKEY$:IF 1$="" THEN 3210 ELSE 3 
220 

3220 CLS 

3230 PRINT" En las sales de iones poliat 
órneos la terminación del oxácido cambi 
aba de < oso > a « ito > y el « ico > 



por « ato »:" 
3240 PRINT: PRINT 

3250 PRINT'HCIO Acido hipodoroso" 
3260 PRINT n NaC10 Hipodonto de sodio" 
3270 PRINT"KC103 Clorato de potasio" 
3280 LOCATE 10, 12: PRINT'PULSA UNA TECLA' 
3290 I$=INKEY$:IF 1$="" THEN 3290 ELSE 3 
300 

3300 CLS 

3310 LOCATE 6:PRINT°CLASIFICACI0 DE LAS 
SALES" 

3320 PRINT:PRINT"Las sales pueden dasif 
icarse en:" 
3330 FOR 1=1 TO 3 
3340 PRINT 
3350 NEXT I 

3360 PRINT'Sales neutras no tienen H en 

su mo- lécula v sa las ácidas" 

3370 PRINT'Son sales neutras:' 

3380 PRINT:PRINT'AgCl Cloruro de olat 

a' 

3390 PRINT"BaS04 Sulfato de bario" 
3400 PRINT:PRINT"Son sales ácidas:" 
3410 PFINT:PRINT"NaHS Hidrógeno sui 
turo de sodio" 

3420 FF.INT"LiHS04 Hidrógeno sulfato d 
e litio" 

3430 LOCATE 1 0 . 20 : PF: INT " PULSA UNA TECLA" 
3440 I$=INKEY$:IF 1$="" THEN 3440 ELSE 3 
450 

3450 CLS 

3460 PRINT" Los ácidos que en su molécul 
a tie- nen más de un H pueden formar io 
nes sin necesidad de desprenderse de 

todo el H de su molécula:' 
3470 PRINT: PRINT 

3480 PRINT"H2C03-H+ — > HC03- Ión H car 
bonato" 

3490 LOCATE 10, 20: PRINT'PULSA UNA TECLA" 
3500 I$=INICEY*;ÍF 1$="" THEN 3500 ELSE R 
ETURN 1560 

3510 REM SISTEMAS DE NOMENCLATURA 
3520 CLS 

3530 PRINT" Existen tres sistemas de nom 
brar los compuestos:" 
3540 PRINT: PRINT 

3550 PRINT'a) El sistema Stock, en el qu 
e se lee el compuesto, óxidos o ácid 
os normalmente, indicando con un nú- 
mero el grado de oxidación del e- 
lemento. " 

3560 PRINT:PPINT" E,emolo:' 

3570 PRINT : PRINT n FeÓ Oxido de hierrod 

I) (dos) " 

3580 PRINT'Fe203 Oxido de hierro(III) (t 
res)" 

3590 LOCATE 10,20:PRINT"PULSA UNA TECLA" 
3600 I$=INKEY$:IF 1$="" THEN 3600 ELSE 3 



610 

3610 CLS:PRINT"b) Nomenclatura sistemáti 
ca:" 

3620 PRINT 

3630 PRINT'Utilizando los prefijos grigo 
s MONO-, DI-, TRI-, etc. En muchas oca 
sio- nes el prefijo mono no suele utili- 
zarse: " 
3640 PRINT 

3650 PRINT"FeO Monóxido de hierro" 
3Ó60 PRINT"Fe203 Trióxido de dihierro* 
3670 LOCATE 1 0 , 20 : PR INT" PULAS UNA TECLA" 
3680 I*=INKEY$:IF 1$="" THEN 3680 ELSE 3 
690 

3690 CLS 

3700 PRINTVjNomenclatura antigua:" 

3710 PRINT 

3720 PRIN T " Si el óxido está hecho con u 
n no rnet?! se llamará anhídrido, con 
un metal óvido." 
3730 PRINT 

3740 cc !NT"Si el elemento X tiene tiene 
1 va- lencia se llamará oxido de X." 
3750 PRINT 

3760 PRINT" Si tiene 2 se usa la termina 
ción * oso > para la más ceoueSa e 

* ico » para la mayor." 
3 n 70 PRINT 

3780 PF.IN T " Si tiene 3 se usa, en la más 
peque- ña « hipo > al prin- cipio y « o 
so * al final. En la mediana se le pone 

* oso » al final y al mayor se le 
oloca « ico » al final" 
37*0 PRINT 

3800 PRINT" Si tiene 4 se hace como si t 
uvira tres, i a la más grande se le po 
ne delante « per » y al final* ico *. 
3810 LOCATE 10,22:PRINT'PULSA UNA TECLA 
3820 I$=INKEY$:IF I$=" THEN 3820 ELSE R 
ETURN 1560 
3830 KEY(l) 0FF:KEY(2) OFF: KEY (3) OFF:KE 
Y(4) OFF: KEY (5) CFF:KEY(6) 0FF:KEYÍ6) OF 
F:KEY(10) OFF : RETURN 60 
3840 CLS-.END 
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Teoría química. 



10 - 58 
20 - 58 
30 - 58 
40 - 0 
50 - 33 
60 -196 
70 -136 
B0 - ?9 
90 - 2 
100 -103 
110 -194 
120 -138 
130 - 25 
140 - 0 
150 -159 
160 -163 
170 - 80 
1B0 -248 
190 -232 
200 -211 
210 -103 
220 - 92 
230 - 76 
240 -229 
250 - 37 
260 -162 
270 -178 
28? -184 
290 - 3 
300 - 43 
310 -103 
320 -143 
330 -183 
340 -151 
350 -7 



360 - 36 
370 -191 
380 - 15 
390 - 75 
400 -115 
410 -155 
420 -237 
430 - 95 
440 - 22 
450 - 43 
460 - 64 
470 - 85 
480 -106 
490 -127 
500 -148 
510 -169 
520 -190 
530 - 0 
540 -150 
550 -176 
560 -196 
570 -226 
580 -246 
590 - II 
600 - 74 
610 -166 
620 -180 
630 -100 
640 -225 
650 -247 
660 - 53 
670 -173 
680 - 17 



710 -184 
720 -217 
730 -221 
740 - 18 
750 - 4 
760 - 40 
770 - 81 
780 - 68 
790 -101 
800 -231 
810 -108 
820 -230 
830 -129 
840 - 9 
850 - 39 
860 -154 
870 - 44 
880 -174 
890 -160 
900 - 21 
910 -202 
920 - 62 
930 - 72 
"40 -181 
950 -205 
"60 - 65 
970 - 86 
"90 -102 
990 -192 
1000 - 61 
1010 - 76 
1020 -255 
1030 -123 



1060 -104 
1070 -121 
1080 -157 
1090 - 77 
1100 - 40 
1110 - 99 
1120 - 0 
1130 -228 
1140 - 37 
1150 -155 
1160 -159 
1170 -221 
1180 -165 
1190 -169 
1200 -175 
1210 - 18 
1220 - 34 
1230 -159 
1240 - 58 
1250 -162 
1260 - 4 
1270 -166 
1280 - 18 
1290 -113 
1300 -103 
1310 -101 
1320 -212 
1330 -204 
1340 -205 
1350 -199 
1360 - 9 
1370 -187 
1380 - 0 
1* 



1410 -220 
1420 - 80 
1430 - 99 
1440 -157 
1450 - 45 
1460 - 79 
1470 -236 
1480 -134 
1490 - 38 
1500 -101 
1510 - 7 
1520 -116 
1530 - 0 
1540 - 28 
1550 -210 
1560 -110 
1570 - 32 
1580 -167 
1590 - 65 
1600 -106 
1610 -231 
1620 - 75 
1630 -200 
1640 -246 
1650 -203 
1660 -146 
1670 - 35 
1680 - 0 
1690 - 75 
1700 - 13 
1710 -229 
1720 -212 
1730 -153 



1760 -159 
1770 - 56 
1780 - 43 
1790 -123 
1800 -126 
1810 - 39 
1820 - 36 
1830 -226 
1840 -159 
1850 - 0 
1860 -170 
1870 -160 
1980 - 36 
1890 -219 
1"00 - 74 
1910 -142 
1920 -182 
1930 -210 
1940 -103 
1950 -201 
1960 - 35 
1970 -221 
1"80 -237 
1990 - 0 

2000 -128 
2010 -119 

2020 -109 
2030 -172 
2040 -235 
2050 -235 
2060 - 23 
2070 -114 
2080 - 50 
?0 



2110 


- 4 


2460 


- 46 


2810 


-155 


3160 


-235 


3510 


- 0 


2120 


- 95 


2470 


- 76 


2820 


- 33 


3170 


-219 


3520 


-159 


2130 


-159 


2480 


-148 


2830 


- 98 


3180 


- 45 


3530 


-112 


2140 


- 40 


2490 


- 89 


2840 


-159 


3190 


- 89 


3540 


- 92 


2150 


- 80 


2500 


00 


2850 


-111 


3200 


- 33 


3550 


- 5 


2160 


- 30 


2510 


- 54 


2860 


- 57 


3210 


-180 


3560 


-166 


2170 


-108 


2520 


-159 


2870 


-134 


3220 


-159 


3570 


-105 


2180 


- 80 


2530 


- 9 


2880 


-136 


3230 


-176 


3580 


-196 


2190 


-233 


2540 


-173 


2890 


- 33 


3240 


- 92 


3590 


- 33 


2200 


-114 


2550 


-145 


2900 


-137 


3250 


-172 


3600 


-196 


2210 


-212 


2560 


-246 


2910 


- 0 


3260 


-245 


3610 


- 50 


2220 


- 0 


2570 


- 15 


2920 


- 29 


3270 


-237 


3620 


-145 


2230 


-159 


2580 


-145 


2930 


-168 


3280 


- 25 


3630 


-169 


2240 


-253 


2590 


- 64 


2940 


-159 


3290 


- 84 


3640 


-145 


2250 


-178 


2600 


- 33 


2950 


-140 


3300 


-159 


3650 


-161 


2260 


-159 


2610 


- 0 


2960 


-145 


3310 


- 57 


3660 


-216 


2270 


-182 


2620 


-159 


2970 


-134 


3320 


- 79 


3670 


- 33 


2280 


-147 


2630 


- 9 


2980 


-163 


3330 


-185 


3680 


-100 


2290 


-223 


2640 


-168 


2990 


-145 


3340 


-145 


3690 


-159 


2300 


- 8 


2650 


-165 


3000 


- 86 


3350 


-204 


3700 


-109 


2310 


-151 


2660 


-253 


3010 


-143 


3360 


-255 


3710 


-145 


2320 


- 6 


2670 


-166 


3020 


-246 


3370 


- 89 


3720 


-127 


2330 


-206 


2680 


-196 


3030 


-145 


3380 


-184 


3730 


-145 


2340 


-226 


2690 


- 51 


3040 


-219 


3390 


- 2 


3740 


- 65 


2350 


-159 


2700 


-207 


3050 


-145 


3400 


-198 


3750 


-145 


2360 


-182 


2710 


-196 


3060 


- 92 


3410 


-179 


3760 


- 26 


2370 


-1B9 


2720 


- 43 


3070 


-172 


3420 


- 98 


3770 


-145 


2380 


-160 


2730 


- 54 


3080 


-151 


3430 


- 33 


3780 


-190 


2390 


- 29 


2740 


- 33 


3090 


- 36 


3440 


-130 


3790 


-145 


2400 


- 33 


2750 


- 24 


3100 


- 82 


3450 


-159 


3800 


-170 


2410 


-110 


2760 


-159 


3110 


-217 


3460 


- 29 


3810 


- 35 


2420 


-159 


2770 


- 9 


3120 


-191 


3470 


- 92 


3820 


- 36 


2430 


- 9 


2780 


- 25 


3130 


-139 


3480 


-111 


3830 


-147 




SUSCRIBETE HOY MISMO SI 



QUIERES ESTAS. EN VANGUARDIA 




primera revista de MSX de España en tu domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Además tu condición de suscriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 



Nombre y apellidos 



Calle 



Deseo suscribirme a la revista 
STJPERJTJEGOS EXTRA MSX 
a partir del número 



Muy importante: para evitar 



Ciudad 



Tel. 



Provincia 



FORMA DE PAGO: Mediante talón ban- 

cario a nombre de: 

MANHATIAH THAHBFBR, 8 JL 
Ci. Roca i Batlle, 10-18 
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Programa 



Por Joseba López 



MERXE 



«Merxe» es un juego de marcianitos 
muy simple y que publicamos por la 
economía de instrucciones con que lo 
ha realizado su autor, aprovechando 
al máximo la potencia del BASIC 
MSX. 



10 ' mmttmmmtm 

20 » I MERXE t 
30 ' t POP JOSEBA LOPEZ * 
40 1 t PARA MSX CLUB t 

50 ■ mmmmmmm 

60 0PEN"GRP:"F0P 0ÜTPUTASI1: COLOR 15,4,4 
:60TQ 730 

70 V=0:T=10:C=0:L=0:FOP AB=0TO 200 

B0 Q=INT(RND(l)t256):J=INT(RND!l)tl92):P 

SET(Q.J),B:BEEP 

90 NEXT AB 

100 K=2:N=0:LINE(0.0)-(30,192).1,BF:LINE 
(14Í.173W240.18?M5,B:PRESET!15Í.180) 
:PPINT#1. "PÜNTOS u :L:DPAW n BM0, 192P256" 
110 DRAWBH0, 1°2E20R20F10U5R5E10R20F5R12 
P10D4P3'J8F10F14 O 

120 X=220:Y=100:DRAW"BN240,189D2':PAINT( 
30.185). 15 
130 PLAY"T250: XMU$; " 
140 SPRITE$(0)=CHP$(iHlD!+CHP$(iH7D) 
150 P=STRI6(RP):IF P=-1THENK=6ELSEK=2 
160 D=STICK m 
170 IF D=3 THEN 
180 IF 0=5 THEN Y=Y+K 
190 IF D=7 THEN 
200 IF D=l THEN Y=Y-K 
210 IF Y=0THEN Y=2 
220 IF Y=182THEN Y=t80 
230 PUT SPRITE 0,(X,Y).15.0 
240 SPRITE$(l)=CHR$(ítHlB) 
250 V=V+5 

260 PUT SPPITE1,(V,T),1,1 

2 7 0 IF V=250 THEN V=0:T=INT(RND(5)tl65) : 

N=N+1:IF N=50 THEN 580 

280 IF V=X AND Y=T+1 0R V=X AND Y=T 0R 

V=X ANDY=T-1 THEN C=C+100:LINE (200,175 
)-(235,lB7),4,BF:LINE(140,173)-(240,189) 
, 15. B: PPESET (150. 1B0) : PPINT#1 , "PUNTOS" : C 
:PLAY'V15T250CEG" 
290 IF C=3000THEN 300ELSE 140 
300 X=X-2:BEEP:FORTY=1TO10:NEXT:BEEP:FOR 

SD=1TO10:NEXT 

310 IF X=0 THEN 530 ELSE LINE (0. 50) - (15. 
150).8.BF:LINE(0.110)-(256.90),8.BF:Y=10 
0:GOTO 230 




320 FOR R=1TO200 
330 AA=INT'PND(l)t256) 
340 BP=INT(RND(l)tl fl 2) 
350 PSET 'AA.BB) . 1 : BEEP 
360 NEXT R 
370 FOR AS=1TQ70 
380 CIRCLE(124.96»,AS,B 
390 NEXT AS 

400 LINE (0.90) - (250, 110) , 1 . BF: MU$=" V150 
3DftGF#E04D03flGFiE04D03AGF#GE" 
410 PPESET (7.95):PRINT#1."N0S ACERCANOS 
AL PLANETA MEF.XE" : PLAVT250: XMU$; XMU$; " 
420 FOR NH=1TO1000:NEXTNM 
430 SCREEN 0:KEY 0FF:60T0 680 
440 LGCATE 5 .0:PPINT "MIRA QUE AVENTURA 

n 

450 LOCATE 0,2:PFINT"ttmmtmtmttt 

umumumm* 

460 LOCATE 0,4:PPINT"Estanos ante un pía 
neta suiaierte peligroso donde se hay 
an las puertas del universo. Tu las tiene 
s que atravesar,-/ cara ello harás 
lo siguiente: 

470 LOCATE 0, 10:PRINT"Hav una fuerza de 
gravedad contra ti. para vencerla tendrás 
que recoger lossatelites de energia.Con 
3000 puntos lo pasaras. Utiliza el botón 
de disparo o la barra espadadora 



para acelerar 'respecti valiente)." 
480 LOCATE 0, 17:PRINT"E1 nuwro de satel 
ites no es infinito osea que no dejes es 
capar ni uno." 

490 LOCATE 0,20:PPlNT"mm*tmmtm 

mimmmnmr 

500 FOR XC=1TO10000:NEXTXC 
510 SCREEN 2,1 
520 SOTO 70 

c? 0 FOR RT=1TO2000:NEXTRT 
540 SCREEN 0 
H LOCATE 5.10:PRINT"///LO HAS CONSEGUI 

D0W\" 

560 FOR HN=1T0 2000: NEXT: CLS 
570 60T0 630 

580 FOP 5Q= 1 TC 1 000 : NEXT : SCREEN 0 
590 LOCATE0,6:PRINT"SE ACABARON LOS SATE 
LITES DE ENERGIA" 
600 LOCATE5.10:PRINT"|| LO SIENTO.HAS PE 
RDIDO B':PLAY"CCCCC":FOP G0 
T:CLS 

610 FOP CX=1TO1000 
620 GOTO 630 
630 LOCATE 2. 10: INPUT "¿QUIERES JUGAR 0T 
RA VEZ";L$ 

640 IF L$="SI "THENSCPEEN 2.1:G0T0 70 
650 IF L$="N0"THENCLS: GOTO 660ELSE630 
660 LOCATE 10.10:PPINT "ADIOS...." 
Ó70 PLAY°CCCCCCCC":FOR LW= 1 TO2000: NEXT: C 
LS:END 

680 LOCATE 0.6: INPUT"QUIEP.ES CONTROLAR C 
0N J0ISTICK 0 CON 

LOS CURSORES (A/B)";T$ 
690 IF T$="A"THEN RP=1 
700 IF T$="B"THEN PP=0 
7 10 CLS 
720 GOTO 440 
730 SCREEN 3 

740 PPESET(0.30):PPINTI1," JOSEBA 

PRESENTA" 
750 FOP HG=1T0 1500:NEXT 
760 CLS:PRESET(7,40>:PRlNTtl," MERXE" 
770 LINE (0.30)-(230,78U5,B 
780 FOR ERT=1TO2000:NEXT 
790 CLS:SCREEN 2.1:G0T0 320 
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Test de listado 



Merxei 



10 - 58 
20 - 58 
30 - 58 
40 - 58 
50 - 5B 
60 -245 
70 -222 



"0 - 6 

100 -221 

110 -193 

120 -129 

130 -132 

140 - 34 

150 - 47 



170 -172 
180 -139 
190 -176 
200 -136 
210 - 25 
220 -125 
230 -108 



250 -162 
260 - 91 
270 - 41 
280 - 0 
2<?0 - 38 
300 -180 
310 -141 



340 -244 
350 -125 
360 -213 
370 - 69 
380 - 56 
390 - 23 
-18" 



410 -222 
420 - 86 
430 - 66 
440 -180 
450 - 73 
460 -166 
4 7 0 - 77 



490 - 89 
500 -162 
510 - 22 
520 -221 
530 - 88 



570 - 15 
580 -200 
590 - 42 
600 -109 
610 -254 
620 - 15 
630 - 72 
640 -209 



650 - 12 
660 -109 
670 -154 
680 -138 
690 -244 
700 -244 
710 -159 



730 -217 
740 - 4 
750 -165 
760 - B9 
770 -227 
780 -247 
790 - 1 





N.° 12 - 175 PTAS. 




i 



N.° 18 - 175 PTAS. !N.° 19 - 175 PTAS. 




N.° 15 - 175 PTAS. N.^ló y 17 -350 PTAS. 



E. SOFTWARE275 PTAS. N.° 20 - 



PTAS. 



¡SI TE HACE FALTA ALGUN NUMERO DE [252 PIL) EL0 HOY MISMO! 

Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el cu- 
pón y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 

r BOLETIN DE PEDIDO , 

| Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 

i gastos de envío, por lo que adjunto talón n." del Banco/Caja 

por el importe de ptas. a nombre de MANHATTAN TRANSFER, S.A. 

I NOMBRE Y APELLIDOS 

| CALLE N. CIUDAD 

[ j>P ..... — » 1.:....-....* PROVINCIA ........... TEL ! 
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Programa 



Por Enrique Roldán, 




2 



10 COLOR 15,1,1 
20 C=15 

30 0PEN"6RP:'AS1 

40 DEFÜSP 1=65: DEFUSP2=Ó8 

50 CLS 

60 SCREEN 2 

70 PSET(M) 

80 A=USR1(0) 

90 FOP 1=1 TO 800;PRINT#1,T;:NEXT I 
100 A=USR2(0) 

110 IF INKEYSO" 1 THEN 110 

120 LINE(100,1)-(170,191),1,BF 

130 LINE(100,l)-(170,19i).15,B 

140 DRAWBH130, 12M134 , IR26H165. 27H163,3B 

Hi62,66«159,B2f1156,81H152,71H154,57M152. 

13H132,8H118,42BM162,56H158,55U3!1160,53H 

162,3BR2" 

150 DRAK " BM 1 39, 48M1 4 1.52M1 44. 47M 152,55*11 

44,51H141,55M139,48Br1119,47H128,41M130,4 

7H133,44H130,51H127,44Hil9,47" 

160 DRAM"Bñl33,47H135,48H130,63H132,61Hl 

38, 63D2H130, 63M129, 69H13B, 72M138, 65M140, 

56* 

170 CIRCLE(126,51),2,15,,,1.4:PA1NT(126. 

51),15:CIRCLE(126,53),4,15,,,1.4 

180 CIRCLEíl46,58).2. 15,,, 1.4:PAINTÜ46. 

58).15:CIRCLE(146,60},4,15,„1.4 

190 DRAW"BM123,44nll9,43M119,60H130,63BH 

138,67H143,68rH39,60H138,67H152,70" 

200 DRAH'BMl 19, 55M1 12, 66M1 10, 87111 46, 100H 

148,8BI1134,78M124,78r1124,88H145.95r1146,l 

#0fiM124.88«l 18,?0BH124, 78M116, 76" 

210 CIRCLE(116,83), 6,15,, ,1.8 

220 DRAH"BH155, 101P1M159,82L2H155, 101M14 

6,9BBH155,101H151,101H110,95«110.8BBH110 

,9511118, 1111142, 122M151. 110" 

230 DRAtTBJ1126. 115.1130. 132M136, 144M154, 1 

06Í1162, 108M160, 150111 12, 145M114, 104BH154, 

1071143,1361140,135" 

240 DRAH'BMl 12, 138H102, 136H102. 189M166, 1 

B9H170, 145H160, 144BH132, 147D6R4U6BH112, 1 

58«1 11 , 171M159, 174M159, 164MU2, 158" 

250 LINE(160,133)-(170,133),15 

260 DRAW , BHt60,105H160,7Bnl70,81BH162,67 

«170,81" 

270 DRAM"Br1112, 127H102, 126H103, 104H100, 1 
03BH103, 104H107, 79L7BH107, 79H108, 72R4BH1 



En esta versión de su programa gráfi- 
co su autor lo presenta en blanco y 
negro y del mismo modo que en 
Graf-1, puede cambiarse el color de 
los ojos pulsando la barra espadadora 
y pulsado 1 cambia el color del ojo 
el 2 el del otro. 




12, 67M100, 60U2MI 12, 65BM100, 39M120. 48" 
280 LINE( 162,63) -(170,67) , 15 
290 K$=INKEY$ 

300 IF K$=" " OR K$=T OR K$="2' THEN 
GOSUB 320 
310 GOTO 290 

320 C=C+1:IF C=16 THEN C=2 

330 IF K$=" " THEN GOSUB 360: GOSUB 400 

340 IF K$='r THEN GOSUB 360 

350 IF K$= , 2" THEN GOSUB 400 

360 CIRCLE(126,51),2,1,,,1.4:PAINT(126,5 

1U 

370 CIRCLE(126,51),2,C,,,1.4:PAINT(126,5 
1),C 

380 IF K$=' " THEN GOTO 400 ELSE GOTO 
430 

390 RETUPN 

400 CIRCLE(146,58),2,1,,,1.4:PAINT(146,5 
8),1 

410 CIRCLE(146,5B),2,C,,,1.4:PAINT(146,5 
8),C 

420 RETURN 430 
430 RETURN 



Test de listadoi 



10 


- 87 


200 


- 2 


20 


- 80 


210 


-165 


30 


-220 


220 


-190 


40 


-200 


230 


-193 


50 


-159 


240 


-105 


60 


-216 


250 


-117 


70 


- 97 


260 


- 30 


80 


-129 


270 


-215 


90 


- 64 


280 


-239 


100 


-130 


290 


- 74 


110 


-239 


300 


-120 


120 


-153 


310 


-186 


130 


- 95 


320 


-173 


140 


-152 


330 


-113 


150 


- 62 


340 


- 60 


160 


-142 


350 


-101 


170 


-135 


360 


-123 


180 


-162 


370 


-172 



390 -142 
400 -150 
410 -199 
420 - 75 
430 -142 



TOTAL: 
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YAMAHA 

OCgMJE/íMl 

MUSIC COMPUTER 




YAMAHA-HAZEN 

Carretera de La Coruña, km. 17,200 / Teléfono 637 76 46 / Télex 42454 HAZEN E / 28230 Las Rozas de Madrid 



A CASA» 

SX DE PHILIPS. 



■ 



mm 






Porque nadie puede resistirse a la tentación del 
MSX de Philips. A sus divertidos juegos de aventuras. 
A sus entretenidos programas educativos. O a los 
de oficina, como el "Home office". Capaz de hacer 
estadísticas, estudio de cuentas, contabilidad, etc. 



Y los programas específicos para hacer más fácil el 
trabajo al ama de casa. O al estudiante. Además, posee 
una amplísima gama de periféricos: impresoras, 
monitores, ratón, etc. Disfrute con el MSX de Philips. 
Siempre que no esté ocupado. 



PHILIPS 




Philips integra su futuro. 



PHILIPS 



